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SENSACIONAL!!! -COMMODORE  PC-1 

CON  DISCO  CLASICO  DE  5V4  Y  NUEVO  DE  3'h 


Commodore 


El  PC-1  es  el  PC  compatible  más 
compacto  del  mercado. 

Con  una  calidad  excepcional, 
está  fabricado  en  Alemania  y 
aporta  la  mejor  relación 
precio/rendimiento  que  se  puede 
encontrar. 

Dispone  de  la  tecnología  más  avanzada 
«State  of  the  art»  y  su  pequeño  tamaño  se 
complementa  con  el  precio  más  bajo  entre 
los  PC'S  de  marcas  conocidas. 

•  512  K,  ampliables  a  640  K 

•  Tarjeta  de  Gráficos 

•  Monitor  monocromo  o  color 

•  Salidas  serie  y  paralelo 

•  Sistema  BUS  expansión  externa 

•  Compatible  PC 

Con  este  nuevo  equipo, 
COMMODORE  aporta  la  novedad 
o  ventaja  de  disponer  en  el  mismo 
ordenador  del  disco  clásico 


de  5.1  /4"  y  del  más  moderno 
de  3.5". 

Disco  de  5J/4"  360  KB 
Disco  de  3.1/2"  720  KB 

El  usuario  dispone: 

•  Configuración  más  potente  que 
la  habitual. 

•  Compatibilidad  software  grabado 
en  5.1/4". 

•  Compatibilidad  software  grabado 
en  3.5". 

•  Solución  para  el  software  futuro  en  3.5  . 

Los  PC'S  de  COMMODORE  ocupan  e 
tercer  lugar  de  ventas  en  número  de 
unidades  en  Europa.  El  PC-1  es  idóneo 
para  quienes  desean  comenzar  cor 
ordenador  doméstico,  compatic  e  PC 
También  para  Empresas  que  áesec~ 
instalar  numerosas  unidades  co r~c 
terminales.  Por  su  tamaño,  ca  ::: 
y  prestaciones,  es  equipo 
para  Centros  de  Enséñame 


Vea  una  de^cs*":  :r  r  I  e- 

Disthbuidores  de  COMMODORE  o  en 
Grandes  Almacenes.  VÜ  mismo 
comprobará  que  es  im  ordenador  con 
características  y  preda  sensacional. 
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NOTICIAS 


on  el  mes  de  marzo  llega  la  primavera,  el 
buen  tiempo,  una  semana  de  vacaciones 
y  también  nuevos  programas  de 
aplicación  y  entretenimiento.  Además  del 
presente  número,  durante  la  última 
semana  del  mes  estará  en  los  kioskos  el 
próximo  ejemplar  de  nuestra  revista. 

Esto  significará  más  material  para 
quienes  puedan  disfrutar  esas  pequeñas 
vacaciones  en  casa. 


a  Bolsa  está  siempre  de  moda.  Esos 
continuos  movimientos  que  afectan  a  la 
vida  cotidiana,  están  ahora  reflejados  en 
el  programa  de  un  colaborador.  Además 
de  ser  entretenido  está  bien 
documentado,  por  lo  que  consideramos 
muy  didáctico  su  estudio. 

especio  al  tema  de  los  artículos  enviados 
por  colaboradores,  ha  surgido  una  duda 
que  deseo  aclarar.  Cuando  un  lector 
envía  su  programa  o  artículo  a  nuestra 
redacción,  el  departamento  técnico  lo 
examina  y  valora  pensando  en  la 
conveniencia  o  interés  de  su  publicación. 
El  tema  del  premio  en  metálico  es  algo 
secundario.  Se  da  por  supuesto  que  el 
colaborador  está  interesado  en  la 
publicación  de  su  trabajo.  Y  que  por 
nuestra  parte,  recibirá  su  premio 
puntualmente. 


Con  la  salida  del  próximo  número  tenemos 
previsto  el  lanzamiento  de  un  nuevo 
Disco  Especial.  Como  habréis  podido 
comprobar  en  sus  predecesores,  estos 
especiales  contienen  programas  escogidos 
por  su  calidad  y  utilidad.  La  peculiaridad 
del  nuevo  disco  será  la  novedad  de  los 
programas  que  contenga.  Y  junto  a  este 
lanzamiento  llegará  pronto  el  de  los 
Discos  AMIGA.  Tendrán  posiblemente 
periodicidad  trimestral  y  contendrán  los 
programas  publicados  en  la  sección 
AMIGA  WORLD. 
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ELECTRONIC  ARTS 
Y  ACCOLADE 

La  compañía  norteamericana 
productora  de  programas  como 
ONE  ON  ONE,  ARCHON, 
SEVEN  CITIES  OF  GOLD,  etc. 
continúa  ampliando  su  gama  de 
productos  para  Commodore.  En 
esta  ocasión  ha  sorprendido  su 
adquisición  de  otra  conocida 
compañía  de  software. 
ACCOLADE.  Esta  última  es  la 
creadora  de  juegos  como 
HARDBALL,  PSI-5  TRADING 
COMPANY,  TEST  DRIVE,  LA 
LEY  DEL  OESTE  (traducido 
para  nuestro  mercado),  etc.  ■ 

PREMIO 

JOVEN  EMPRESA  1987 
PARA  DINAMIC 

El  pasado  14  de  enero,  dentro 
de  los  actos  conmemorativos  del 
11  Congreso  de  Júnior  Empresa, 
la  compañía  de  vídeo-juegos 
para  ordenador  MICRODIGI- 
TAL  SOFT,  S.A.,  recibió  el 
premio  entre  un  total  de  catorce 
empresas  concurrentes  al  mismo. 

Para  los  usuarios  de  Commo¬ 
dore  el  nombre  más  conocido  de 
la  empresa  es  DINAMIC.  De  sus 
productos  tenéis  amplia  infor¬ 
mación  en  nuestras  páginas  desde 
su  fundación  e  introducción  en  el 
mercado  de  software  para  Com¬ 
modore  64. 

Nuestras  más  sinceras  felicita¬ 
ciones.  ■ 

VIDEOSCAPE  3D 
CON  MANUAL 
EN  CASTELLANO 

Más  que  una  noticia  se  trata 
de  una  corrección  a  la  reseña 
publicada  en  el  número  anterior. 
En  aquella  se  decía  que  el 
manual  estaba  escrito  en  inglés. 
Pues  bien,  PIXEL  (compañía 
que  distribuye  el  programa  de 
AEGIS  en  nuestro  país)  lo  está 
comercializando  con  su  corres¬ 
pondiente  manual  en  castellano, 
para  mejor  uso  y  disfrute  de  los 
commodorianos.  ■ 


NUEVA  MODALIDAD 


SUSCRIPCION 


Suscríbete  ahora  a  nuestro  COMMODORE  WORLD  EN 
DISCO  y  recibirás  mensualmente  la  revista  GRATIS. 
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Y  ^gastos  de  envío  están  incluios.  No 

pagas  ni  una  peseta  mas. 

<*  W»**1 1* 


Junto  a  cada  número  de  nues- 
s  ira  publicación,  preparamos 

un  disco  que  contiene  los  pro¬ 
gramas  publicados.  Enten¬ 
diendo  por  publicados  aque¬ 
llos  cuyos  listados  aparecen 
I  en  el  número  correspondiente. 

Nosotros  siempre  incluimos 
en  los  discos  programas  com- 
|  pletos,  aunque  en  la  revista 

aparezcan  publicados  en  varias 
partes. 

A  demás  de  los  programas  pu¬ 
blicados,  el  disco  contiene 
totalmente  GRATIS  el  pro¬ 
grama: 

=J  DAT  AFILE 

Y  como  complemento  a  esta  feno¬ 
menal  base  de  datos,  en  cada  disco 
incluimos  el  fichero  INDICE.  Este 
fichero  contiene  el  índice  completo 
de  los  programas,  artículos,  bancos 
de  pruebas,  etc...  aparecidos  desde 
el  número  1  de  COMMODORE 
WORLD.  Para  que  sea  de  más  uti¬ 
lidad,  este  índice  es  actualizado  con 
la  aparición  de  cada  número  de 
nuestra  revista.  Así,  podéis  saber  en 
todo  momento  el  número  y  página 
en  que  se  publicó  un  programa,  un 
comentario  de  juego,  la  reseña  de 
algún  periférico,  etc... 


La  compatibilidad  de  los  PC’s  no  es  la  única 
vía  para  compartir  datos  entre  ordenadores. 
Los  pequeños  Commodore  disponen  de 
elementos  para  compartir  información  con  sus 
hermanos  mayores. 


Los  usuarios  de  equipos  pe¬ 
queños  han  tenido  siempre 
un  continuo  afán  de  expan¬ 
sión.  En  la  mayoría  de  los 
casos  es  imposible  lograr 
una  alta  compatibilidad  con 
otros  sistemas,  por  lo  que  ese  afán  de 
expansión  resulta  totalmente  desmesu¬ 
rado.  A  pesar  de  todo,  Commodore  ha 
conseguido  importantes  avances  en  el 
campo  de  compatibilización  de  sus 
ordenadores. 

Los  primeros  intentos  de  compartir 
información  se  hicieron  a  través  de 
equipos  con  multiprocesadores,  o  siste¬ 
mas  de  tarjetas  con  procesadores  alter¬ 
nativos.  Así,  el  C-64  puede  trabajar  bajo 
sistema  operativo  CP  M  con  sólo  aña¬ 
dirle  un  cartucho  (tarjeta  que  incorpora  ¡ 
el  procesador  Z80)  y  cargar  el  mencio¬ 
nado  sistema  desde  el  disco.  Como  sis¬ 
tema  más  avanzado  y  versátil,  el  C-128 
dispone  del  Z80  en  la  placa  principal  del 
ordenador.  Basta  encender  nuestro  C- 
1 28  con  el  disco  del  sistema  CP/  M  en  la 
unidad  para  empezar  a  trabajar  direc¬ 
tamente  con  el  potente  Z80. 

Todo  lo  anterior  no  resultaría  muy 
útil  de  cara  a  compartir  datos  con  un 
PC,  de  no  ser  por  un  programa  que 
realiza  el  pequeño  milagro  de  transfor¬ 
mación.  THE  BIG  BLUE  READER, 
programa  que  comentamos  en  nuestro 
número  39,  permite  pasar  ficheros  del 
formato  CP/M  al  MS-DOS.  Aquí  apa¬ 
rece  la  gran  esperanza  para  los  usuarios 
que  han  tecleado  innumerables  datos  en 
su  pequeño  Commodore  y  que  ahora 
disponen  también  de  un  PC  o  de  algún 
modelo  de  AMIGA  con  tarjeta  PC  o 
software  emulador. 

Un  ejemplo  práctico  y  sencillo  es  la 
transmisión  de  información  contenida 
en  bases  de  datos  trabajando  bajo 
CP/M,  a  bases  de  datos  que  trabajen 
con  sistema  MS-DOS.  Así  es  posible 
utilizar  datos  introducidos  en  DBASE 
II  con  un  C-128,  en  un  Personal  System 
2  de  IBM.  No  se  trata  de  una  teoría.  Yo 
mismo  lo  he  comprobado. 

El  método  que  he  seguido  es  bastante 
sencillo,  lo  importante  es  ejecutar 
correctamente  todos  los  pasos.  El  pro¬ 
grama  que  he  utilizado 
es  THE  BIG  BLUE 


READER,  que  copia  un 
fichero  del  disco  con 
formato  CP/M  a  otro 
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disco  con  formato  MS-DOS.  Ese  fi¬ 
chero,  en  este  caso  una  base  de  datos 
creada  con  DBASE  II,  se  puede  leer 
directamente  con  un  PC  o  compa-  i 
tibie.  Mediante  una  unidad  de  3,5  M 
pulgadas  se  puede  copiar  la  base  K 
de  datos  en  ese  formato,  y  utili-  m 
zarlo  en  el  PS/2  (Personal  m 
System  2  de  IBM).  Después,  K 
si  no  se  desea  utilizar  K 
DBASE  II,  basta  con  trans-  K 
formar  de  nuevo  el  fiche-  m 
ro,  por  ejemplo  para  uti-  m 
lizarlo  con  DBASE  III  m 
PLUS.  Así,  los  primi-  m 
tivos  datos  introduci-  J 
dos  hace  meses  o  w 

años  en  nuestro  j 

Commodore  64  ó  / 

128  pueden  ser  / 
utilizados  ahora  U 
en  cualquier  V' 

PC,  AMIGA  / 
o  PS/2.  J 

La  utili-  M 
dad  de  es-  Jf 
te  tipo 
de  conversión 
es  evidente.  Los  pe- 
queños  comerciantes  que 
llevan  sus  cuentas,  clientes  y 
datos  de  almacén  con  el  C-64  o  C- 
128,  pueden  cambiar  de  equipo  sin 
traumas.  No  necesitan  volver  a  teclear  la 
información  en  su  nuevo  AMIGA  500, 
AMIGA  2000,  PC-1  u  otro  Commo¬ 
dore.  Y  al  igual  que  los  compatibles,  el 
PS/2  trabaja  correctamente  con  la 
información  introducida  inicialmente  en 
el  pequeño  Commodore. 

Un  apartado  importante  es  el  referente 
a  los  programas.  La  mayoría  de  los  pro¬ 
gramas  fuentes  generados  con  procesado¬ 
res  de  texto  pueden  ser  utilizados  con  los 
AMIGA  o  PC  compatibles.  El  único  re¬ 
quisito  necesario  es  que  se  “dejen”  com¬ 
pilar  bajo  MS-DOS  con  algún  compila¬ 
dor  de  lenguaje  de  alto  nivel.  Respecto  a 
esto,  he  probado  la  compilación  y  pos¬ 
terior  ejecución  de  programas  desarro¬ 
llados  en  COBOL  y  BASIC.  Todos  fun¬ 
cionaron,  tanto  en  el  AMIGA  500  como 
en  el  PS/2  y  en  un  PC-XT  compatible. 


RAM 

dos 

usos 


Controlador  disco 
de  PC 


Conectores 
disco  floppy 


Zócalo 

8087 


Interface 

controlador 

JANUS 


ROM 

BIOS 


Chip  multifunción 
PC 


Conector 
bus  del 
AMIGA 

MS- 

DOS  con 
el  AMIGA  es 
necesario  utilizar  un 
programa  emulador.  Este 
programa  se  llama  TRANS- 
FORMER  y  permite  utilizar  los  pro¬ 
gramas  serios  de  PC  en  los  ordenadores 
de  la  familia  AMIGA.  Tanteo  el  modelo 
500  como  el  100  o  el  2000,  emulan  el 
modo  PC  con  este  programa. 

A  finales  de  1985  apareció  una  pri¬ 
mera  versión  del  TRANSFORMER 
para  funcionar  en  el  A 1000.  Las  caracte¬ 
rísticas  de  aquella  primera  versión  eran 
buenas,  pero  la  velocidad  de  procesa¬ 
miento  resultaba  muy  lenta,  especial¬ 
mente  la  representación  en  pantalla. 
Rápidamente  se  proyectó  una  idea  de 
hardware  como  opción  más  rápida  y 
compatible,  destinada  al  A 1000.  Antes 
de  finalizar  1986,  el  SIDECAR  estaba 
ya  en  el  mercado.  Este  aparato  convertía 
al  A1000  en  un  compatible  100%, 
aunque  con  un  costo  adicional  cosidera- 
ble. 

La  “pantalla  compatible”  de  un 
AMIGA  trabajando  con  el  TRANS¬ 
FORMER  es  monocroma.  La  compa¬ 
tibilidad  gráfica  es  del  tipo  de  tarjeta 
CGA,  aunque  realmente  no  puede 
representar  gráficos.  Tampoco  es  capaz 
de  subrayar  texto  en  pantalla  o  presen¬ 
tar  caracteres  en  modo  parpadeante.  El 
emulador  tampoco  soporta  impresoras 
con  interface  serie.  Y  algo  que  resulta 
incómodo  para  el  usuario  acostum¬ 
brado  a  las  delicias  del  ratón,  en  modo 


Conector 
bus  del 
PC 


PC  no  K 

es  posible  K 

utilizar  ese  “brazo 
derecho”  del  AMIGA. 

La  primera  necesidad  del  usuario  es  el 
sistema  operativo  de  PC  en  formato  3,5 
pulgadas.  También  existe  la  posibilidad 
de  conectar  una  unidad  de  5,25  para 
transferir  ficheros  o  programas  no  pro¬ 
tegidos.  El  AMIGA  puede  soportar 
hasta  tres  unidades  trabajando  bajo  la 
configuración  del  TRANSFORMER. 

El  tema  de  la  velocidad  ofrece  venta¬ 
jas  y  desventajas.  Un  emulador  es  una 
solución  de  bajo  costo  para  el  usuario  de 
cualquier  sistema,  pero  suelen  perderse 
algunas  características  originales  del  sis¬ 
tema  emulado.  Las  operaciones  de  disco 
son  comparables  en  velocidad  con  el  PC 
normal,  pero  cae  hasta  un  50%  en  la 
mayoría  de  las  funciones  de  entrada  y 
salida.  Con  las  funciones  gráficas,  sin 
embargo,  es  equivalente  o  superior. 
Para  las  aplicaciones  en  las  que  se  utiliza 
reiteradamente  intercambio  de  bits,  el 
emulador  resulta  muy  lento,  al  igual  que 
con  las  hojas  de  cálculo  grandes.  Los 
procesadores  de  texto  mantienen  una 
aceptable  velocidad  de  entrada  de  datos 
por  teclado.  Son  equivalentes  a  los  de 
PC.  Para  resolver  parte  de  estos  pro- 
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blemas  e  incrementar  las  prestaciones 
del  emulador,  Commodore  lanzó  un 
acelerador  de  hardware.  Con  ese  acele¬ 
rador  las  prestaciones  del  AMIGA  en 
modo  PC  son  equivalentes  o  superiores 
a  las  de  un  compatible  normal.  Por  otra 
parte,  existen  programas  aceleradores 
de  la  gestión  de  pantalla.  Concreta¬ 
mente,  hemos  probado  el  programa 
SPEEDY,  que  acelera  de  forma  apre¬ 
ciable  la  presentación  de  los  datos  en 
pantalla  del  AMIGA. 

Las  tarjetas  para  el  AMIGA  2000 

El  interior  del  AMIGA  2000  dispone 
de  espacio  suficiente  para  una  expan¬ 
sión  completa  del  sistema.  Además  de 
los  cuatro  slots  disponibles  para  el 
modo  AMIGA,  existen  otros  cuatro 
para  el  modo  PC.  De  los  cuatro  slots 
para  modo  PC,  dos  de  ellos  están  prepa¬ 
rados  para  tarjetas  de  16  bits,  es  decir, 
que  se  pueden  conectar  tarjetas  de  AT. 

Para  trabajar  en  modo  PC  o  AT  es 
necesaria  la  tarjeta  correspondiente. 
Actualmente  existen  dos  tarjetas  dife¬ 
rentes,  la  A2088  con  procesador  8088 
(PC  XT)  y  la  de  AT  (desconozco  el 
número  correspondiente  a  ese  modelo). 

La  A2088  incluye  el  procesador  8088 
normal,  trabajando  a  4,77  MHz.  La 
ROM  del  BIOS  es  compatible  IBM,  lo 
cual  asegura  una  completa  utilización  de 
los  programas  para  PC  compatibles. 
Además,  incorpora  un  controlador  de 
disco  flexible  para  trabajar  con  unida¬ 
des  de  5,25  pulgadas.  La  RAM  de  la 
tarjeta  alcanza  los  512K  para  software 
MS-DOS.  Junto  al  procesador  8088 
posee  un  zócalo  para  la  incorporación 
del  coprocesador  matemático  8087.  Las 
funciones  de  hardware  del  PC  son  emu¬ 
ladas  por  un  chip  adicional  que  además 
genera  las  señales  especiales  de  reloj, 
DMA  y  control  de  interrupciones. 

Los  usuarios  pueden  intercambiar 
ficheros  entre  los  modos  de  funciona¬ 


miento,  gracias  al  área  de  la  A2088  que 
controla  el  modo  AMIGA.  Dos  chips 
especiales  se  encargan  de  las  conexiones 
entre  los  dos  modos  y  contienen  el  inter¬ 
face  JANUS.  La  conexión  física  ocupa 
un  área  de  memoria  común  a  los  dos 
modos.  Esa  zona  de  memoria  se  llama 
“RAM  de  doble  puerta”. 

La  tarjeta  A2088  tiene  128K  de 
“RAM  de  doble  puerta”.  A  través  de  esa 
memoria  se  controla  el  PC/XT,  por  lo 
que,  para  el  AMIGA,  el  modo  de  tra¬ 
bajo  del  PC  es  una  ventana  más  de  tra¬ 
bajo.  De  los  128K,  64K  forman  un  buf- 
fer  de  transmisión  de  datos.  Así,  el  disco 
duro  conectable  al  bus  del  PC  se  puede 
utilizar  desde  el  AMIGA.  En  la  segunda 
zona  de  esa  memoria  está  la  RAM  de 
vídeo  monocroma,  la  RAM  de  color  y 
los  registros  de  entrada/salida.  También 
se  encuentra  en  esa  zona  un  registro  de 
interrupción  de  ocho  bits. 

Para  conseguir  un  control  completo 
de  los  registros  de  interrupción,  de  la 
pantalla  y  el  teclado,  es  necesario  crear 
una  o  varias  imágenes  de  los  registros  y 
pantallas  de  PC.  Estas  “copias”  de 
RAM  son  necesarias  para  el  acceso 
correcto  a  los  diferentes  datos.  La  dife¬ 
rencia  fundamental  es  el  orden  en  que 
los  bytes  están  escritos.  El  procesador 
8088  escribe  todos  los  datos  en  distinta 
forma  a  como  lo  hace  el  68000,  por  lo 
tanto  hacía  falta  un  truco  para  leer  los 
mismos  bytes  en  distintos  modos. 

La  configuración  de  memoria  es  muy 
importante.  El  A2088  reserva  dos 
megabytes  de  memoria  en  el  momento 
de  la  configuración  (para  su  propio  uso 
durante  el  proceso).  Sin  embargo,  la 
sola  conexión  de  la  tarjeta  A2088  limita 
al  AMIGA  a  6,5  megabytes  de  RAM,  de 
los  cuales  sólo  6  se  pueden  autoconfigu- 
rar  como  expansión  de  RAM. 

La  tercera  zona  de  la  “RAM  de  doble 
puerta”  es  la  de  parámetros  de  RAM. 
Esta  zona  trabaja  como  un  interface  de 
control  para  el  sistema  JANUS.  En 
especial,  están  contenidas  algunas  ruti¬ 
nas  que  controlan  el  “handshaking” 
(apretón  de  manos  o  reconocimiento  de 
comunicación)  entre  los  dos  sistemas. 
Esta  zona  contiene  importantes  punte¬ 
ros  para  el  reconocimiento  de  las  estruc¬ 
turas  de  datos.  Es  importante,  en  espe¬ 
cial,  para  la  utilización  de  las  zonas 
comunes  de  RAM. 


_ Software  para  A2088 _ 

Todo  el  control  inteligente  del  flujo  de 
información  entre  el  PC  y  el  AMIGA 
está  en  la  parte  del  AMIGA.  Dentro  de 
la  tarjeta  y  de  las  librerías  JANUS.  Para 
hacer  correr  programas  de  PC,  el 
AMIGA  ejecuta  una  tarea  llamada 
“PCWindow  task”  (tarea  de  ventana 
PC). 

PCWindow  es  como  cualquier  otro 
programa.  Utiliza  ventanas  y  menús  de 
activación  por  ratón.  Cuando  un  pro¬ 


grama  PC  cambia  su  información  de 
pantalla  o  se  dispone  a  leer  el  teclado, 
estos  cambios  se  muestran  en  la  pantalla 
inmediatamente,  o  se  produce  una  inte¬ 
rrupción  para  poder  tomar  la  informa¬ 
ción  que  se  teclee. 

Este  sistema  de  control  por  interrup¬ 
ciones  es  muy  efectivo,  y  sólo  se  da  en 
ocho  casos  concretos.  El  PC  interrumpe 
al  AMIGA  en  alguna  de  las  siguientes 
ocho  ocasiones:  por  lectura  del  teclado, 
escritura  en  memoria  de  vídeo  mono¬ 
croma,  escritura  en  memoria  de  vídeo  de 
color,  acceso  a  los  registros  CRT  mono¬ 
cromos,  acceso  a  los  registros  CRT  de 
color,  acceso  a  LPT1 ,  acceso  a  COM 1 ,  o 
por  necesidades  de  interrupción  por 
software. 

El  software  que  acompaña  a  la  tarjeta 
A2088  contiene  la  librería  del  JANUS, 
que  permite  ejecutar  programas  MS- 
DOS  en  monocromo  o  color.  El  pro¬ 
grama  de  PC  funcionando  en  una  ven¬ 
tana  de  AMIGA  permite  que  dicha 
ventana  sea  relocalizada,  cambiado  su 
tamaño,  etc.  También  se  pueden  cam¬ 
biar  los  colores  o  eliminar  el  borde  de  la 
ventana. 

El  arranque  de  un  AMIGA  2000  con 
tarjeta  A2088  es  bastante  complicado, 
aunque  el  usuario  no  lo  aprecie.  Lo  pri¬ 
mero  es  el  arranque  del  AMIGA  pro¬ 
piamente  dicho,  desde  la  ejecución  de 
los  “drivers”  hasta  la  carga  del  Work- 
bench,  pasando  por  la  carga  de  la  libre¬ 
ría  del  JANUS.  En  ese  momento  se  hace 
un  reset  del  PC  y  el  AMIGA  espera  el 
procedimiento  de  autoarranque  de  la 
tarjeta.  Cuando  se  detecta  el  refresco  de 
la  memoria  en  la  parte  PC,  el  BIOS 
comienza  a  colocar  datos  en  la  “RAM 
de  doble  puerta”.  Esa  tarea  es  la  petición 
de  permiso  para  arrancar,  punto  en  el 
cual  Commodore  necesitó  cambiar  la 
ROM  del  BIOS  de  Phoenix. 

Otro  método  de  transmisión  de  datos: 
_ el  modem _ 

Además  de  los  métodos  comentados 
anteriomente,  existen  otras  posibilida¬ 
des.  Una  de  ellas  puede  ser  un  simple 
cable  que  actuando  de  bus  entre  los  PC’s 
y  Commodores,  transmita  datos  de  unos 
a  otros.  Pero  posiblemente  el  mejor 
método  de  comunicación  sea  un  modem. 

A  través  de  la  línea  telefónica  pueden 
enviarse  o  recibir  datos  de  otros  orde¬ 
nadores.  No  es  absolutamente  necesario 
que  los  ordenadores  en  comunicación 
sean  del  mismo  tipo.  Es  posible  enviar 
datos  desde  un  PC  a  un  Commodore  64 
o  desde  un  AMIGA  al  C-128.  Es  cues¬ 
tión  de  software  e  imaginación. 

Algunos  usuarios  conocerían  estos 
métodos  previamente,  otros  estarían  en 
fase  de  iniciación  y  otros,  posiblemente, 
no  pensaban  ni  en  la  posibilidad  de 
conectar  PC’s  y  Commodores.  Para 
todos  en  general,  espero  que  este  breve 
artículo  añada  luz  y  nuevas  ideas  sobre 
el  tema.  ■ 
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General  Franco,  4!  -  Entlo.  A 
Teléf.:  24  90  46.  ORENSE 


MASTER  DEALER  DE  COMMODORE  ESPAÑA  EN  EL  NOROESTE 


SOLO  NORSOFT  Y  AMIGA  LO  HACEN  POSIBLE 


COMMODORE 

^MÍG^ 


SOPORTES  FISICOS 


A  1084  (MONITOR  14”  RGB) 

A  520  (INTERFACE  PAL  PARA  TV) 

A  501  (AMPLIACION  512  KB.  RAM) 

A  1010  (DISCO  EXT.  3.5”) 

A  2010  (DISCO  INT.  3.5”) 

A  2052  (2  MG.  RAM) 

A  2088  (TARJETA  PC/AT)  +  A  2020  (DISCO 
INT.  5  1/4”  PC) 

A  2092  (DISCO  DURO  20  MG.)  +  A  2090 
(CONTROLADOR  AMIGA/SCSI) 

A  2092  (DISCO  DURO  20  MG.)  +  A  5060 
(CONTROLADOR  PC) 

A  2300  (TARJETA  GENLOCK) 

A  2032  (VIDEO  MODULADOR) 


SERVIMOS  PEDIDOS  INMEDIATAMENTE  A  TRAVES  DE  NUESTROS  DISTRIBUIDORES. 

EN  24  HORAS  PARA  EL  RESTO  DE  ESPAÑA 

SERVICIO  TECNICO  OFICIAL  DE  COMMODORE  ESPAÑA 


En  “La  Bolsa”  pueden  jugar  de 
2  a  6  personas.  Cuantas  más 
jueguen  más  divertido  puede 
llegar  a  ser.  Cada  jugador  dis¬ 
pone  al  comienzo  del  juego  de 
90.000  pesetas.  Con  ellas  de¬ 
berá  comprar  acciones  de  las  empresas  que 
quiera.  El  juego  completo  comprende  444 
turnos.  En  jugarlos  todos  se  puede  tardar 
mucho  tiempo  (de  4  a  7  horas).  Yo  suelo 
jugar  con  mis  amigos  poniendo  un  tope  de 
dinero,  por  ejemplo,  10  millones  de  pesetas. 
Así,  el  primero  que  consiga  esa  cifra  es  el  que 
gana  la  partida.  Si  ya  conoces  el  verdadero 
juego  de  la  Bolsa,  no  te  será  muy  difícil 
acostumbrarte  a  jugar  de  este  nuevo  modo. 
Y  si  no  lo  conoces,  te  será  aún  más  sencillo. 

Opciones  del  juego 

1.  Compra  o  venta.— Sólo  se  puede  hacer 
cuando  se  acabe  una  tanda  completa  de 
turnos.  Aquí,  el  jugador  que  quiera  puede 
comprar  acciones  de  la  empresa  que  desee  (si 
tiene  dinero),  o  venderlas. 

En  el  juego  hay  8  empresas,  que  estarán  en 
una  posición  u  otra  según  vaya  el  juego.  La 
acción  de  una  empresa  determinada  costará 
lo  que  indique  su  posición.  Por  ejemplo,  si  la 
KLM  está  en  21,00  enteros,  costará  2.100 
pesetas.  Como  puedes  deducir,  conviene 
comprar  acciones  cuando  la  empresa  esté 
baja  (tampoco  mucho,  porque  tus  enemigos 
te  la  pueden  bajar  demasiado)  y  venderlas 
cuando  esté  alta. 

2.  Transacciones.— Esta  opción  tiene  un 
nombre  muy  serio,  pero  sirve  simplemente 
para  hacer  sobornos.  Si  jugáis  más  de  dos 
jugadores  podéis  hacer  coaliciones,  que 
podéis  cambiar  cuando  queráis.  Pero,  por 
ejemplo,  cuando  los  enemigos  aún  no  están 
muy  definidos  (eso  depende  de  las  acciones 
de  las  empresas  que  tenga  cada  uno)  por 
hacer  un  favor  se  suele  pedir  dinero,  tantos 
por  ciento  en  beneficios  posteriores,  acciones, 
etc.  Pero  todo  esto  os  lo  tenéis  que  imaginar 
vosotros,  no  os  lo  tengo  que  decir  yo. 

3.  Estado  de  cuentas.— Son  unas  pantallas 
que  te  indican  el  dinero  de  cada  jugador,  el 
dinero  que  tiene  invertido  en  acciones,  las 
acciones  que  tiene  y  de  qué  empresas  son,  y 
el  valor  total  de  los  bienes.  Sobra  decir  que 
cada  jugador  debe  saber  de  qué  empresas 
han  comprado  acciones  los  demás  jugadores 
y  tener  una  idea  de  la  cantidad  de  esas 
acciones.  Para  luego  saber  si  le  conviene 
bajar  o  subir  una  empresa  más  que  la  otra. 
Pero  ya  estoy  empezando  de  nuevo  a  hablar 
demasiado. 

4.  Siguiente  turno.— El  siguiente  jugador 
saca  otra  “carta”  y  la  juega.  Normalmente 
tienes  poder  decisorio,  pero  otras  veces  no. 

Cuando  una  empresa  sobrepasa  los  25,00 
enteros  hay  reparto  de  dividendos  para  todos 
aquellos  jugadores  que  tengan  acciones  de 
esa  empresa.  Ese  reparto  estará  en  relación 
con  el  número  de  acciones  que  se  tengan. 

Por  el  contrario,  si  una  empresa  baja  del 
límite  de  los  100  enteros,  los  jugadores  que 
tengan  acciones  de  esa  empresa  deberán 
pagar... 

Simulación  de  una  partida 

Nada  más  ejecutar  la  Bolsa  te  aparece  una 
pantalla  que  te  indica  que  se  están  leyendo 
datos.  Tras  esta  pantalla  te  preguntan  el 
número  de  jugadores  que  van  a  jugar.  Teclea 
un  dos,  por  ejemplo. 

Después  introduce  los  nombres  (seguidos 
de  RETURN)  y  finalmente  pulsas  la  barra  de 
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espacios.  Ahora  estás  ya  en  la  pantalla 
principal,  donde  aparecen  las  empresas 
(KLM,  HOECHST,  BP,  ERT,  FORD,  VW, 
GM,  BAYER)  y  la  posición  en  la  que  se 
encuentran.  Al  principio  del  juego  todas 
estarán  en  11,00  enteros. 

Un  scroll  de  texto  te  indica  las  cuatro 
opciones  de  que  dispones.  Estas  opciones 
sólo  serán  válidas  cuando  aparezca  el  cartel 
“pulsa  una  función”. 

Si  te  has  fijado,  en  la  primera  línea  de  la 
pantalla,  encima  del  tablón  de  las  empresas, 
pondrá:  Turno  de...,  y  el  nombre  que  hayas 
puesto  como  primer  jugador.  Debajo  del 
tablón  estará  escrita  la  carta  que  tiene  que 
jugar  el  jugador  de  arriba.  Imagínate  que 
pone:  “Suben  al  doble  KLM  y  GM”  y  debajo, 
“¿qué  empresas  deseas  bajar  a  la  mitad?”. 

Con  la  barra  espadadora  vas  cambiando 
el  nombre  de  la  empresa.  Cuando  tengas  en 
el  recuadro  la  empresa  que  quieres  bajar  a  la 
mitad  pulsa  RETURN.  Suponte  que  era  la 
BAYER.  Te  pondrá  Ok,  BAYER.  Después 
aparecerá  otro  recuadro  al  lado,  y  actúas  de 
la  misma  manera.  Imagínate  que  has  elegido 
KLM.  Entonces  pondrá:  Ok,  BAYER  y 
KLM. 

¿Qué  es  lo  que  hará  ahora  el  ordenador? 
Muy  sencillo.  Te  dejará  la  KLM  donde 
estaba:  subió  al  doble  (22,00)  y  luego  bajó  a 
la  mitad  (11,00),  situará  GM  en  22,00  y 
bajará  la  BAYER  a  550  enteros.  En  este  tipo 
de  carta  el  jugador  puede  decidir  bajar  o 
subir  una  o  dos  empresas,  sin  embargo,  hay 


otras  que  son  totalmente  obligatorias.  Por 
ejemplo:  Sube  10,00  enteros  la  FORD  y 
bajan  20,00  todas  las  demás. 

Sigamos  con  la  partida.  Ahora  aparece  un 
cartel  que  pone  “pulsa  una  función”.  El 
nombre  del  primer  jugador  sigue  arriba,  pero 
no  significa  nada,  sólo  indica  cuál  ha  sido  el 
último  jugador  en  jugar  una  carta. 

Prueba  a  pulsar  ahora  F5,  que  sirve  para 
ver  el  estado  de  cuentas  de  los  jugadores.  En 
la  primera  pantalla  aparecerá  el  estado  de 
cuentas  del  primer  jugador  (dinero  en  accio- 
nes=0,  dinero  en  metálico=90.000,  valor 
total  de  bienes=90.000)  y  después  la  corres¬ 
pondiente  al  segundo  jugador,  que  en  este 
caso  son  iguales.  Salvo  el  nombre. 

Al  volver  de  nuevo  a  la  pantalla  principal, 
el  ordenador  te  pide  de  nuevo  que  pulses  una 
función.  Puedes  probar  otra  vez  a  pulsar  F5, 
pero  como  ya  sabes  el  estado  de  cuentas  de 
los  jugadores,  haz  algo  más  interesante. 
Prueba  a  pulsar  F3.  Esta  opción  sirve  para 
que  los  jugadores  se  intercambien  dinero  y 
acciones  entre  sí.  Como  ninguno  de  los  dos 
tiene  acciones  puedes  probar  a  regalarle  a  tu 
amigo  10  pesetas,  o  mejor  una,  que  luego 
puede  hacer  falta.  No  creo  que  tengas  proble¬ 
mas  con  esta  opción,  pues  los  mensajes  están 
en  castellano. 

Ahora  que  ya  has  visto  el  estado  de  cuentas 
y  le  has  regalado  10  pesetas  (¿ó  1?)  a  tu 
compañero-enemigo,  pulsar  Fl.  ¿Qué  es  lo 
que  ha  pasado?  No  te  deja  comprar  ni  vender, 
¿verdad?  Cuando  juegues  unas  cuantas  par- 
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HARD  MICRO 


C/  Villarroel,  138,  1?  1» 
08032  Barcelona 
Tel. :  253  19  41 
Télex:  98638  COAC  E 
ATT  28176 


AMIGA  500 

+  5  programas 
+  uno  especial  de  uti¬ 
lidades  con  copiones 
de  disco  por 

95.000  ptas. 


-AMPLIFICADOR  STEREO  PARA  AMIGA . 4.100- 

-  UNIDAD  DE  DISCO  3,5  80  TRACS .  39.900  - 

-  MONITORCOLOR  ALTA  RESOLUCION  ....  53.000  - 

-  TARJETA  AMPLIACION  512  K.  Y  RELOJ  . .  22.000,- 

-  MODULADOR  T.V.  PARA  AMIGA  500  .  4.500  - 

-  CABLE  IMPRESORA  CENTRONICS  A500  . .  3.500,- 

-  IMPRESORA  RITEMAN  F+CENTR0NICS  ....  55.000  — 

-  IMPRESORA  PANASONIC  120  c.p.s .  50.000,- 

-  CABLE  ADAPTADOR  A500-A10Q0  .  4.000,- 

nicrnc  con  caja  de  plástico  de  marca 

Y  CON  CERTIFICADO  DE  GARANTIA 


COMMODORE  64-128 

FINAL  CARTIDGE  III 

9.900 

TRANSTADE  C2 

6.500 

GRABADOR  EPROMS 

14.900 

RESET 

1.400 

REVISTA 
AMIGA  WORLD 


IMPORTADA  DE 
EE.  UIJ.  a .  990  ptas. 


3  '/i  5  '/. 

—  10  .  390  ptas.  —  >0 .  180  ptas. 

—  30  .  360  ptas.  —  30  .  160  ptas. 

—  50  .  330  ptas.  —  50  .  150  ptas. 

—  Archivador  metálico  para  100  discos  3.800  ptas. 


LLAMANOS  Y  PREGUNTA 
INFORMACION  SOBRE  LA 
REVISTA  0  CUALQUIERA 
DE  NUESTROS 
PRODUCTOS 


HACEMOS  DEMOSTRACIONES  DEL  ORDENADOR  AMIGA  500  CON  CUALQUIERA 
DE  LOS  200  PROGRAMAS  QUE  TENEMOS  A  NUESTRA  DISPOSICION. 


SE  ATIENDEN  PEDIDOS  POR  TELEFONO  O  CARTA 


Commodore  World  /II — 1 


r CUADRO - 

Cómo  teclear  el  programa 

Debes  teclear  los  listados  1  y  2  por 
separado,  y  grabarlos  también  por  sepa¬ 
rado  en  disco  o  en  cinta.  Antes  de  comen¬ 
zar  a  teclear  cualquiera  de  ellos  (o  al 
cargarlo  de  cinta  o  disco),  debes  introducir 
unos  POKEs: 

POKE  44,58:POKE  58*256, 0:NEW 

El  listado  1  coloca  en  memoria  las  ru¬ 
tinas  de  código  máquina,  los  sets  de  ca¬ 
racteres  y  las  rutinas  de  scroll.  El  listado 

2  es  el  programa  principal. 

Cuando  tengas  los  dos  programas  gra¬ 
bados,  para  poder  jugar  haz  lo  siguiente: 
arranca  el  ordenador,  haz  los  POKEs, 
carga  el  “BOLSA  CREATOR”  (con 
LOAD),  ejecútalo  (RUN,  tarda  unos  tres 
minutos),  carga  el  programa  principal 
(LOAD)  y  ejecútalo  (RUN). 

Otra  posibilidad  es  grabar  el  código 
máquina  después  de  haber  ejecutado  el 
listado  1.  Haz  RUN  y,  cuando  el  progra¬ 
ma  acabe,  teclea  las  siguientes  instruccio¬ 
nes: 

POKE  43,l:POKE44,8 

POKE  45,0:POKE46,58 
SAVE“BOLSA.CM”,8  (o  1  para  cinta) 

Si  ahora  modificas  la  línea  6  del  pro¬ 
grama  principal  para  que  cargue  este 
programa  de  c.m.,  no  tendrás  que  esperar 
los  tres  minutos  que  el  listado  1  tarda  en 
hacer  los  POKEs  la  próxima  vez  que 
vayas  a  jugar.  Esta  es  la  modificación: 

6  IF  PEEK  (4096)  <  >  120  THEN 
LOAD  “BOLSA. CM”,  8,1 

No  te  olvides,  en  cualquier  caso,  de 
hacer  los  POKEs  antes  de  cargar  el 
programa  principal.  ■ 

tidas  te  darás  cuenta  del  porqué  de  este 
impedimento.  Esto  es  importante:  no  se 
puede  comprar  ni  vender  hasta  que  juegue  el 
último  jugador. 

Sólo  queda  por  ver  la  función  F7.  Púlsala. 
Encima  de  la  pantalla  aparecerá  el  nombre 
del  segundo  jugador  y  la  carta  que  tiene  que 
jugar,  igual  que  antes. 

Quizá  encontréis  el  juego  un  poco  apaga- 
dillo,  pero  os  aseguro  que  puede  haber  hasta 
peleas.  Según  jueguen  2,  3,  4,  5  ó  6  personas 
deben  seguirse  diferentes  tácticas  de  juego. 

Cuando  yo  juego  suelo  comprar  unas  cien 
acciones  de  una  empresa  que  esté  muy  baja. 
Después,  cinco  o  diez  de  una  que  esté  muy 
alta  y  unas  20  de  una  que  esté  en  posición 
normal.  Si  en  las  dos  jugadas  (las  que  hay 
que  pasar  para  poder  comprar  o  vender  de 
nuevo)  consigo  subir  algo  la  empresa  que 
estaba  baja  y  de  la  cual  he  comprado  muchas 
acciones,  vendo  bastantes;  con  lo  cual  ya  he 
amortizado  lo  que  me  gasté  al  comprarlas.  Si 
jugamos  tres  personas,  intento  hacer  unos 
cuantos  favores  bien  cobrados  y  luego  me 
alío  con  el  más  fuerte  para  derrocar  al 
tercero. 

Por  último,  y  a  título  informativo,  diré  que 
en  el  juego  pueden  salir  10  tipos  diferentes  de 
cartas  y  que  los  mensajes  informativos  son  de 
tres  tipos: 

1.  Te  informa  del  número  de  turno  en  el 
que  estáis.  (Recuerda  que  hay  444.) 

2.  Indica  a  un  jugador  que  las  acciones 
que  tiene  de  una  empresa  están  cotizadas 
muy  bajas,  con  respecto  al  dinero  que  se 
gastó  al  comprarlas. 

3.  Como  la  dos,  pero  al  revés. 


El  programa 

Algunas  rutinas  de  código  máquina  pueden 
resultar  muy  interesantes  para  tus  propios 
programas.  La  mayoría  no  son  relocalizables, 
pero  si  sabes  algo  de  C.M.  no  te  será  muy  di¬ 
fícil  hacerlo.  A  continuación  tenéis  una  lista 
de  las  más  importantes  rutinas  utilizadas. 

$  1 000-$  1 102.— Rutina  para  los  dos  scrollers 
decimales  de  texto.  Se  ayuda  del  texto  colo¬ 
cando  en  $1E00-$1FFF.  El  scroll  de  arriba  se 
activa  con  SYS4302  y  el  de  abajo  con 
SYS4270.  Si  los  quieres  ver  con  el  nuevo  set 
|  de  caracteres  debes  hacer  un  POKE53272, 18. 

$1200-$12B3. — Convierte  una  cadena  a 
formato  sprite.  Los  sprites  que  genera  se 
almacenan  en  memoria  y  luego  son  sacados 
en  scroll  por  otra  rutina.  La  sintaxis  es:  SYS 
4760,  cadena.  (a$,al$+Kl$,  “QE2”,  etc.). 

$1300-$135C. — Esta  rutina  activa  el  scroll 
de  sprites  en  el  borde,  evidentemente  todo 
por  interrupciones.  Se  activa  con  SYS4864. 
Esta  rutina  se  ayuda  de  otra,  $11 10-$  1 1 A3 
que  es  la  que  hace  el  scroll  propiamente 
dicho.  Puedes  emplear  estas  rutinas,  $  1 300- 
$135C,  y  la  anterior  para  lo  que  yo  las 
empleo  en  la  Bolsa.  Para  sacar  información. 
Ya  explicaré  en  otro  momento  cómo  ha  de 
gestionarse. 

$13B0-$144D. — Esta  rutina  enmarca  una 
cadena.  Su  sintaxis  correcta  es:  SYS5040, 
fila,  columna,  color,  cadena.  Para  que  salga 
bien  tienes  que  tener  activado  el  nuevo  set  de 
caracteres. 

$3800-$38BB. — Esta  rutina  se  encarga  de 
dibujar  las  barras  de  las  empresas  en  la 
pantalla  principal.  Pero  para  ello  necesita  de 
algunos  parámetros  que  la  bolsa  ya  se  encar¬ 
gará  de  darle.  ■ 


ATENCION!  ANTES  DE  TECLEAR  O  CARGAR 
ESTE  LISTADO,  HAZ  LOS  BIGUIENTE8  POKESi 

POKE  44,58» POKE  58*256,0 


PROGRAMA»  BOLSA  CREATOR  LISTADO  1 


10  REM  BOLSA  CREATOR  .24 

15  REM  <0  1988  BY  QE2  .151 

20  REM  <0  1988  BY  COMMODORE  WORLD  .34 

25  .  .1 

30  DIMP  < 14)  .4 

35  F0RI»1T014»  READP  < I ) *  NEXT  .101 

40  F0RI-1T014STEP2  .220 

45  FORJ"P  < I ) TOP  < 1*1 > i READA4 1 G08UB65  .27 

50  POKE J,V»8-8*Vi NEXT* NEXT  .30 

55  I FS< >27585 1THENPRI NT “ERROR  EN  DATAS!-  .141 

60  END  .  62 

65  V-0*GOSUB70» V-V#16» A4-MID# <A*,2>  .159 

70  X-ASC<A*> lV-V*X*48*<X<64)*55*<X>64> » RETURN  .188 

73  1  .51 

80  DATA  2056,3015,4096,4515,4536,4829,4864,4956,50  .186 
24,5301,7680,8191,14336,14628 

85  «  .61 


100  DATA  00 , 00 , 78 , CC , CC , 7C , 00 , 00 , C0 , C0 , F8 , CC , CC , F8  .204 

101  DATA  00 , 00 , 00 , 00 , 7C , C0 , C0 , 7C , 00 , 00 , 0C , 0C , 7C , CC  .237 

102  DATA  CC , 7C , 00 , 00 , 00 , 00 , 78 , FC , C0 , 76 , 00 , 00 , 3C , 60  .136 

1 03  DAT A  F0 , 60 , 60 , 60 , 00 , 00 , 00 , 00 , 76 , CC , CC , 78 , CC , 78  .175 

104  DATA  C0 , C0 , F8 , CC , CC , CC , 00 , 00 , 30 , 00 , 70 , 30 , 30 , 30  .238 

105  DATA  00, 00, 0C, 00, 1C,0C,0C,0C,CC,78,C0,CC,D8,F0  .99 

106  DATA  D8,CC, 00, 00, 38, 18, 18, 18, 18, 18,00,00,00,00  .138 

107  DATA  FC , D6 , D6 , D6 , 00 , 00 , 00 , 00 , F8 , CC , CC , CC , 00 , 00  .253 

108  DATA  00 , 00 , 78 , CC , CC , 78 , 00 , 00 , 00 , 08 , F8 , CC , CC , F8  .32 

109  DATA  C0 , C0 , 00 , 00 , 78 , CC , CC , 7C , 0C , 0C , 00 , 00 , F8 , CC  .39 

110  DATA  C0 , C0 , 00 , 00 , 00 , 00 , 7C , F0 , 3C , F8 , 00 , 00 , 60 , F8  .216 

111  DATA  60 , 60 , 6C , 38 , 00 , 00 , 00 , 00 , CC , CC , CC , 7C , 00 , 00  .237 

112  DATA  00 , 00 , CC , CC , 78 , 30 , 00 , 00 , 00 , 00 , D6 , D6 , D6 , 7C  .246 

113  DATA  00 , 00 , 00 , 00 , CC , 78 , 78 , CC , 00 , 00 , 00 , 00 , CC , CC  .239 

114  DATA  CC , 7C , 0C , 78 , 00 , 00 , FC , 38 , 70 , FC , 00 , 00 , 00 , 1 8  .80 

115  DATA  00 ,18,18,18,18,18, CC , 00 , CC , CC , CC , 7C , 00 , 00  .29 

116  DATA  00 , 30 , 00 , 30 , 60 , C0 , CC , 78 , F0 , D8 , D8 , F0 , CC , CC  .190 

117  DATA  00 , 00 , 00 , 00 , 7C , C0 , C0 , 7C , 30 , 60 , 00 , 00 , 00 , 00  .105 

118  DATA  00 , 00 , 00 , 00 , C0 , C0 , C0 , C0 , C0 , 00 , C0 , 00 , CC , CC  .234 

119  DATA  CC , 00 , 00 , 00 , 00 , 00 , 18 , 00 , 78 , CC , CC , 7C , 00 , 00  .145 

120  DATA  10, 7C , D0 , 78 , 2C , F8 , 20 , 00 , 66 , 6C ,18, 30 , 6C , CC  .38 

121  DATA  00,00, 18, 00,78, FC,C0, 78, 00,00, 0C, 00, 38, 18  .147 

122  DATA  18, 18, 00, 00, 0C, 18, 30, 30, 30, 18, 0C, 00, C0, 60  .50 


123  DATA  30, 30, 30, 60, C0, 00, 00, 6C, 38, FE, 38, 6C, 00, 00  .227 

124  DATA  00, 30, 30, FC, 30, 30, 00, 00, 00, 00, 00, 00, 30, 30  .4 

125  DATA  60, 00, 00, 00, 00, FC, 00, 00, 00, 00, 00, 00, 00, 00  .131 

126  DATA  60, 60, 00, 00, 06, 0C, 18, 30, 60, C0, 00, 00, 38, 6C  .6 

127  DATA  C6 , C6 , 6C , 38 , 00 , 00 , 08 ,18, 38 ,18,18, 3C , 00 , 00  .83 

128  DATA  78 , CC , 0C , 38 , 60 , FC , 00 , 00 , 78 , CC ,18, 0C , CC , 78  .100 

129  DATA  00,00, 18, 30,68, FC, 18, 18, 00,00, FC,C0,F8,0C  .63 

130  DATA  CC , 78 , 00 , 00 , 78 , C0 , F8 , CC , CC , 78 , 00 , 00 , FC , 0C  .18 

131  DATA  18 , 30 , 60 , C0 , 00 , 00 , 78 , CC , 78 , CC , CC , 78 , 00 , 00  .243 

132  DATA  78 , CC , CC , 7C , 0C , 78 , 00 , 00 , 00 , 60 , 60 , 00 , 60 , 60  .206 

133  DATA  00,00,00,30,30,00,30,30,60,00, 18, 00,78, CC  .67 

134  DATA  CC, 78, 00, 00, 00, 7C, 00, 00, 7C, 00, 00, 00, 18,00  .156 

135  DATA  CC, CC,CC,7C, 00, 00, 78, CC,0C, 18,30,00,30,00  .223 

136  DATA  DE , E6 , F6 , DE , CE , C6 , 00 , 00 , 38 , 38 , 6C , 6C , FE , C6  .2 

137  DATA  00 , 00 , FC , C6 , FC , C6 , C6 , FC , 00 , 00 , 7C , C6 , C0 , C0  .185 

138  DATA  C6 , 7C , 00 , 00 , F8 , CC , C6 , C6 , CC , F8 , 00 , 00 , FE , C0  .114 

139  DATA  F8 , C0 , C0 , FE , 00 , 00 , FE , C0 , F8 , C0 , C0 , C0 , 00 , 00  .241 

140  DATA  7C , C6 , C0 , CE , C6 , 7C , 00 , 00 , C6 , C6 , FE , C6 , C6 , C6  .28 

141  DATA  00,00,18,18,18,18,18,18,00,00,06,06,06,06  .179 

142  DATA  C6 , 7C , 00 , 00 , C6 , CC , F8 , F8 , CC , C6 , 00 , 00 , C0 , C0  .126 

143  DATA  C0 , C0 , C0 , FE , 00 , 00 , C6 , EE , FE , D6 , C6 , C6 , 00 , 00  .83 

144  DATA  C6 , E6 , F6 , DE , CE , C6 , 00 , 00 , 7C , C6 , C6 , C6 , C6 , 7C  .156 

145  DATA  00 , 00 , FC , C6 , C6 , FC , C0 , C0 , 00 , 00 , 7C , C6 , C6 , C6  .49 

146  DATA  DE , 7C , 0C , 00 , FC , C6 , C6 , FC , C6 , C6 , 00 , 00 , 7C , C6  .148 

147  DATA  70, 1C,C6,7C,00,00,7E, 18,18,18,18, 18,00,00  .193 

148  DATA  C6 , C6 , C6 , C6 , C6 , 7C , 00 , 00 , C6 , C6 , 6C , 6C , 38 , 38  .92 

149  DATA  00 , 00 , D6 , D6 , D6 , D6 , D6 , 6C , 00 , 00 , C6 , 6C , 38 , 38  .81 

150  DATA  6C , C6 , 00 , 00 , 66 , 66 , 66 , 3C ,18,18, 00 , 00 , FE , 0C  .230 

151  DATA  18, 30, 60, FE, 00, 00, 00, FF, 80, 9F, 90,90, 90, 90  .235 

152  DATA  00 ,FF , 01 , F9 , 09 , 09 , 09 , 09 , 90 , 90 , 90 , 90 , 9F , 80  .32 

153  DATA  FF, 00, 09, 09, 09, 09, F9, 01 , FF , 00 , 00 , 00 , 00 , 00  .59 

154  DATA  FF , 00 , FF , 00 , 00 , FF , 00 , FF , 00 , 00 , 00 , 00 , 90 , 90  .8 

155  DATA  90,90,90,90,90,90,09,09,09,09,09,09,09,09  .83 

156  DATA  24 , 24 , 24 , 24 , E7 , 00 , FF , 00 , 00 , FF , 00 , E7 , 24 , 24  .208 

157  DATA  24, 24, 90, 90, 9F, 80, 80, 9F, 90, 90, 09, 09, F9, 01  .213 

158  DATA  01 ,F9, 09, 09, 00,00, FF, 00,00, FF, 00, 00, 24, 24  .234 

159  DATA  24, 24, 24, 24, 24, 24, 24, 24, E7, 00, 00, E7, 24, 24  .249 

160  DATA  09 , 09 , F9 ,01,01 , FF , 00 , 00 , 90 , 90 , 9F , 80 , 80 , FF  .152 

161  DATA  00, 00, 24, 24, E7, 00, 00, FF, 00, 00, 21 ,72,24,08  .11 

162  DATA  10,20,47,80,00,00,00,00,00,00,00,00,00,00  .178 

163  DATA  00 , 00 , 00 , 00 , FF , 00 , FF , FF , FF , FF , FF , FF , FF , FF  .169 

164  DATA  00 , 00 , 80 , 80 , 80 , 00 , 00 , 00 , 00 , 00 , C0 , C0 , C0 , 00  .252 

165  DATA  00 , 00 , 00 , 00, E0 , E0 , E0 , 00 , 00 , 00 , 00 , 00 , F0 ,F0  .113 

166  DATA  F0 , 00 , 00 , 00 , 00 , 00 , F8 , F8 , F8 , 00 , 00 , 00 , 00 , 00  .84 

167  DATA  FC , FC , FC , 00 , 00 , 00 , 00 , 00 , FE , FE , FE , 00 , 00 , 00  .135 

168  DATA  00 , 00 , FF , FF , FF , 00 , 00 , 00  .208 

199  *  .175 

200  DATA  78 , A9 , 00 , 85 , 9C , 8D ,12, D0 , A2 , FF , 86 , A3 , A9 ,01  .196 

201  DATA  8D , 1 A , D0 , A9 , 2D , 8D ,14, 03 , A9 ,10, 8D ,15, 03 , AD  .161 
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-CIMEX 

ELECTRONICA 


CALABRIA,  23  ENT.  4.° 

08015  BARCELONA 
I.  93-424  34  22 


TODOS  LOS  PRECIOS  INCLUYEN  IVA.  PEDIDOS  POR  CARTA  TELEFONO 
O  DIRECTAMENTE  EN  NUESTRAS  OFICINAS  DE  LUNES  A  VIERNES  DE 
9.30  a  14  y  16  a  20  HORAS. 

ENVIOS  CONTRA  REEMBOLSO  A  TODA  ESPAÑA.  PARA  MAYOR 
RAPIDEZ  ENVIE  CHEQUE  BANCARIO  O  TRANSFERENCIA  TELEGRAFICA 
ACEPTAMOS  TARJETAS  DE  CREDITO.  PARA  PEDIDOS  INFERIORES  A 
2.000  PTAS  #  INCLUYA  300  PTAS  PARA  GASTOS  DE  ENVIO  SOLICITE 
NUESTRO  CATALOGO. 


SUPERCHIP  128 


Colocando  este  chip  en  el  zócalo  interior  del  128,  ten¬ 
dremos  en  memoria  y  accesibles  instantáneamente  5 
programas:  Copiador  Nibble,  File  Copier,  Programa  ter¬ 
minal  de  Modem,  Editor  de  pistas  y  sectores  y  Volca¬ 
dos  de  Pantalla  4.000 


NEWTEXT.  Procesador  de  textos  (c 

5UPERC0NTA.  Plan  General  Contable 
:STADI$TICA$.  Hasta  7.000  casos  y  variables 
CONTABILIDAD  PERSONAL.  Contabilidad  doméstica  (c 
PERSPECTIVAS.  Procesador  de  figuras  (c 

GESTION  DE  STOCKS.  Hasta  1.100  artículos 
EDITOR  DE  RECIBOS.  Edita  hasta  800  recibos 
BASE  DE  DATOS.  (c 

COMPILADOR 

EDITOR  DE  ETIQUETAS  fe 

ENSAMBLADOR  c 

AYUDA  AL  PROGRAMADOR 
SIMULADOR  DE  SPECTRUM  (c 

INTEGRADOS 


(c)  4.500 

(d)  4.900 
19.900 
15.000 

(c)  2.500 

(di  3.000 

¡c)  4.500 

(d)  5.000 
10.000 
15.000 

(c)  3.500 

(d)  8.000 
5.000 

(c)  2.500 

(d|  6.000 

(c)  3.000 

(c)  2.500 

id]  3.500 
3.000 

CPU  6510 

3.100 

CIA  6526 

3.100 

SID  6581 

4.000 

ROM  318020 

3.000 

VIDEO  6569 

5.000 

ROM  318006 

3.000 

PLA  906114 

3.100 

CPU  8502 

4.500 

DIV.  VIDEO  8701  3.100 

VIDEO  8563 

4.500 

ROM  901225-01 

3.000 

VIDEO  8566 

7.500 

ROM  901226-01 

3.000 

PLA  8721 

4.500 

ROM  901227-03 

3.000 

MMU  8722 

5.000 

ROM  252179 
ROM  252180 
CPU  68000 
DENISE  8362 


3.500  VtAMJCA 
3.500  PAULA  8363  16.100 

2.300  AGNUS  8367  11.100 

11.100  CIA  8520  4.500 


PUBLIC  DOMAIN 


GAMES  1 .  Colección  de  juegos  de  todo  tipo 
BASIC  GRAB  BAG.  Más  de  60  programas  en  Basic:  Jue¬ 
gos, utilidades,  etc... 

MONOPOLY.  Adaptación  del  famoso  juego. 

GAMES  3.  Life,  Vegas,  Slot  Machine,  Reversi,  Lunar 
Lander  y  otros. 

DOC  FILES.  Colección  de  10  ficheros  con  documenta¬ 
ción  sobre  AMIGA. 

DOC  FILES  2.  10  ficheros  más  con  información  sobre 
AMIGA. 


ROM  1571 


CONTA  4000 


^stiluye  la  Rom  original  del  sistema  operativo  de  la  Programa  de  contabilidad  para  pequeña  empresa  Ca- 
umdad  de  discos  1 571,  solventando  el  problema  de  la  pacidad  de  3800  apuntes  por  año300  cuentes  de  qas- 
lectura  de  discos  grabados  en  una  sola  cara  en  modo  tos  o  ingresos.  5  cuentes  de  bancos  Listados  de  cuen 
128.  Por  ejemplo,  la  lectura  del  directorio  de  1  disco  de  tes  y  saldos.  Extractos  de  cuentes  ^  y“omroT  de 
simple  cara  es  instantánea  4nnn  ; _ .= _  uwno  y  coniroi  ae 


4.000  facturas  pendientes 


Disco  14.900 


CONTA  4.000 
MUSIC  64 


GESTION  DE  STOCKS 
BASE  DE  DATOS 
EDITOR  DE  RECIBOS 
BIG  BLUE  READER 
MATRIX 

^ÁMIGA 

GO-64! 


10.000 

8.000 

15.000 

9.900 

9.900 


8.000,- 


EMULADOR  DE  COMMODORE  64 

MODULADOR  AMIGA  500  4.750 

EXPANSION  MEMORIA  AMIGA  21.900 

UNIDAD  DE  DISCOS  AMIGA  39.900 

PLACA  EMULADORA  PC/XT  106.400 

TARJETA  2  Mb  A-2000  67.200 

DISCO  3  1/2  INT.  A-2000  33.600 


¿AMIGA 


(Programas  seleccionados) 


MODEM  MADNESS.  Utilidades  de  telecomunicación; 
Star  Term,  A  Term,  Kermit,  etc. 

FREEDRAW.  Programas  de  dibujo  y  de  demostración 
del  sintetizador  de  voz  de  AMIGA  y  12  programas  más. 

De  1  a  3  discos:  1 .500  cada  uno. 

De  4  a  8  discos:  1 .250  cada  uno. 


CITIZEN  120D 

INTERFACE  INTERCAMBIABLE  PARA  COMMODORE 
CENTRONICS  o  RS232 
120  C.P.S.  (NLQ  25  C.P.S.) 

80  COLUMNAS  EN  MODO  STANDARD 
PAPEL  POR  ARRASTRE  Y  FRICCION 
10  TIPOS  DE  CARACTERES 
4  K  DE  BUFFER  /JfrJL  f 


SOLO  49.900 


asabais© 

PROGRAMADOR  EPR0MS 
TERMINAL  RTTY 
CINTA  MPS  801 
CINTA  CITIZEN!  20  D. 

BORRADOR  EPR0MS 
FINAL  CARTRIDGE III 
PRINTER IV 

FUENTE  DE  AUMENTACION 
J0YSTICK  QUICKSH0TT II  + 

J0YSTICK  QUICKSHOT  X  PC 
J0YSTICK  EUR0MAX 
RATON  (sellen disco) 

INTERFACE  CENTRONICS 
FUNDA  PLASTICO  C-64 


DISKETTES  5  1 14  DS/DO  (100.)  1 .550,- 

DISKEYTES  3  1/2  DS/DD  350,— 

ARCHIVADOR  ioo  discos  5  1/4  3.900 
ARCHIVADOR  50  discos  3 1/2  3.900 


CONDICIONES  ESPECIALES 
PARA  DISTRIBUIDORES 


C-16,  VIC-20,  C-64.  C-128,  AMIGA  Y  PC. 
DISK  DRIVES  1540,  1541,  1570,  1571  y  1581 
IMPRESORAS  MPS  801,  MPS  1200. 

INSTALACION  DE  DISCOS  DUROS  PARA  PC. 


servicio 


URGENTE 


HOR'aS' 


GARANTIA  1  mes 


202  DATA  11, D0 , 29 , 7F , BD  «11*  D0 , A9 , 00 , 85 , A4 , A9 ,  1 E , 85  .182 

203  DATA  A5 , 58 , 60 , 78 , AD ,  19 , D0 1 29 ,  01 , D0 ,03 , 4C  ,7E , EA  .5 

204  DATA  A9 ,81, 8D ,19, D0 , A5 , 9C ,  49 , 80 , 83  ,  9C , D0 , 1 A , AD  .46 
203  DATA  16, D0 , 29 , F7 , BD ,16, D0 , A9 , FB , 8D ,12, D0 , AD ,16  .111 

206  DATA  D0 , 29 , F8 , 03 , A6 , 8D , 16 , D0 , 4C , 7E , EA , AD , 16, D0  .188 

207  DATA  09 , 08 , 8D ,16, D0 , A9 , F 1 , 8  D , 1 2 , D0 , AD ,16, D0 , 29  .15 

208  DATA  F8,8D,16,D0,E6,A3,A5,A3,C9,08,D0,0A,A9,00  .188 

209  DATA  85,A3,E6,A4,D0,02,E6,A3,A5,A4,C9,D8,D0,0E  .147 

210  DATA  A5 , A3 , C9 , 1E , D0, 08 , A9 , 00 , 85 , A4 , A9 , 1E , 83 , A3  .68 

211  DATA  A9 , 07 , 38 , E5 , A3 , 83 , A6 , A0 , 27 ,81, A4 , 99 , C0 , 07  .29 

212  DATA  88 , 10,F8,4C,31 , EA , A2 , 00 , A0 , 1 E , A9 , FB , 20 , EE  .228 

213  DATA  10.A2, 1E , A0 , D8 , 8C , 89 , 10,8E,8F, 10,A2,C0,A0  .63 

214  DATA  07 , 8E , A6 ,10, 8C , A7 ,10, 4C , 00 ,10, A2 , 00 , A0 , 1 F  .134 

215  DATA  A9,3A,20,EE, 10, A2, 1F , A0 , D0 , BC , 89 , 10,8E,8F  .249 

216  DATA  1 0 , A2 , 00 , A0 , 04 , 8E , A6 ,10, 8C , A7 ,10, 4C , 00 ,10  .108 

217  DATA  8E , 24 , 10 , 8E , 93 , 10 , 8C , 28 , 10, 8C ,97,10, 8D , 4E  .249 

218  DATA  10,E9,09,8D,68, 10,60, A0, 28, A9, 20,99, BF, 07  .254 

219  DATA  88 , D0 , FA , 60 , 00 , 00 ,18, A2 , 00 , A9 ,01, 8D , FB , CF  .121 

220  DATA  BD , 00 , D0 , F0 , 16 , C9 , El , F0 , 3C , DE ,00 , D0 , 18, AD  .178 

221  DATA  FB , CF , 2A , 8D , FB , CF , E8 , E8 , E0 ,10, D0 , E6 , 60 , 1 8  .231 

222  DATA  AD , FB , CF , 2C , 10 , D0 , F0 , 1 0 , 38 , A9 , FF ,ED , FB , CF  .134 

223  DATA  18 , 2D , 10 , D0 , 8D , 10 , D0 , 4C , 21 , 1 1 , AD , FB , CF , 0D  .21 

224  DATA  10 , D0 , 8D , 10 , D0 , A9 , F8 , 9D , 00 , D0 , 4C , 21 , 1 1 , 18  .32 

225  DATA  AD , FB , CF ,2C , 10 , D0 , F0 , 1C , A9 , 69 , 9D , 00 , D0 , 8A  .15 

226  DATA  6A , AA , A5 , A7 , 9D , F8 ,07 , E6 , A7 , A3 , A7 , C5 , A8 , D0  .188 

227  DATA  04 , 4C , 85 , 1 1 , EA , 8A , 2A , AA , 4C , 21 , 1 1 , 78 , A9 , 00  .61 

228  DATA  8D , 1 2 , D0 , 8D , 0D , DC , 8D , 1 A , D0 , A9 , 79 , 8D , 1 9 , D0  .86 

229  DATA  A9 , 1 B , 8D , 1 1 , D0 , A9 , 00 , 8D , 12 , D0 , 18 , 4C , AE , 10  .25 

299  i  . 20 

300  DATA  18 , A2 , 00 , A9 , 00 , 9D , 00 , D0 , 69 , 30 , E8 , E8 , E0 , 1 0  .147 

301  DATA  D0,F5,A9,C0,8D, 10,D0,A9,FF,8D, 1D,D0,A2,00  .44 

302  DATA  A9 , 03 , 9D , 27 , D0 , E8 , E0 , 08 , D0 , F8 , A2 , 00 , A9 , 80  .105 

303  DATA  9D , F8 , 07 , 69 , 01 , E8 , E0 , 08 , D0 , F6 , A2 , 00 , A9 , 13  .16 

304  DATA  9D , 01 , D0 , E8 , E8 , E0 , 10 , D0 , F7 , A9 , FF , 8D ,13, D0  .251 
303  DATA  60 , 00 , 20 , FD , AE , 20 , 9E , AD , A5 , 0D , F0 , 7A , 20 , A3  .116 

306  DATA  B6 , 83 , FB , F0 , 73 , A9 , 00 , 85 , 37 , 83 , 58 , 83 , 59 , 85  .195 

307  DATA  9E, A9, 23, 83, 9F,EA,EA,A4, 57, B1 ,22,20,85,12  .6 

308  DATA  83 , FC , A9 , 00 , 83 , FD , 06 , FC , 26 , FD , 06 , FC , 26 , FD  .157 

309  DATA  06 , FC , 26 , FD , A5 , FD , 69 , 08 , 83 , FD , A0 , 00 , 98 , AA  .190 

310  DATA  A4,39,B1 ,FC, 48, BA,A8, 68,91 ,9E,CB,C8,C8,E6  .51 

311  DATA  59 , A5 , 59 , C9 , 08 , D0 , E9 , E6 , 57 , A5 , 57 , C5 , FB , D0  .62 

312  DATA  03 , 4C , 84 ,12, E6 , 9E , A9 , 00 , 85 , 59 , E6 , 58 , A5 , 38  .213 

313  DATA  C9 , 03 , D0 , AF , A9 , 00 , 85 , 58 ,18, AS , 9E , 69 , 3D , 85  .196 

314  DATA  9E , 90 , 02 , E6 , 9F , 4C ,21,12, 60 ,18, C9 , 3F , B0 , 0 1  .155 
313  DATA  60 ,18, C9 , 5F , B0 , 03 , E9 , 3F , 60 ,18, E9 , 7F , 60 , 00  .30 

316  DATA  A2 , 00 , A0 , 20 , 86 , FC , 84 , FD , A0 , 00 , A9 , 00 ,91 , FC  .143 

317  DATA  C8 , D0 , FB , E6 , FD , A5 , FD , C9 , 38 , D0 , EF , 4C , 00 , 1 2  .26 

318  DATA  00 , 20 , 44 , ES , A2 , 00 , A0 , D8 , 86 , 05 , 84 , 06 , A0 , 00  .5 

319  DATA  A9 , 03 ,91, 05 , E6 , 05 , A3 , 05 , C9 , E8 , D0 , 07 , A5 , 06  .210 

320  DATA  C9 , DB , D0 , EE , 60 , C9 , 00 , D0 , E9 , E6 , 06 , 4C , C2 ,12  .1 

399  l  . 120 

400  DATA  78 , A2 , 24 , A0 ,13, 8E ,14, 03 , 8C ,15, 03 , A9 , 7F , 8D  .213 

401  DATA  0D,DC,A9,01,8D,1A,D0,8D,19,D0,A9,1B,8D,11  .92 

402  DATA  D0 , A9 , F9 , 8D ,12, D0 , 58 , 60 , A9 ,01, 8D ,19, D0 , AD  .201 

403  DATA  FF ,12, F0 ,13, AD ,11, D0 , 29 , F7 , 8D ,11, D0 , A9 , 20  .176 

404  DATA  8D , 12 , D0 , CE , FF , 12 , 4C , 34 , 13 , AD ,11, D0 , 09 , 08  .211 

405  DATA  8D , 1 1 , D0 , A9 , F9 , 8D , 1 2 , D0 , EE , FF , 1 2 , 4C , 3 1 , EA  .54 

406  DATA  20, 10, 11 ,20, 10, 11 ,4C,7E,EA  .91 

499  i  . 220 

300  DATA  A0 , F0 , A9 , 20 , 99 , CF , 06 , 88 , D0 , FA , 60 , 00 , 00 , 00  .43 
501  DATA  00 , 00 , 20 , FD , AE , 20 , 9E , AD , A5 , 0D , D0 , 0D , 20 , AA  .100 

302  DATA  B 1 , 84 , D6 , 20 , FD , AE , 20 , 9E , AD , A5 , 0D , D0 , 0F , 20  .159 

303  DATA  AA.Bl , 84 , D3 , 84 , 03 , 20 , FD , AE , 20 , 9E , AD , A3 , 0D  .86 
504  DATA  D0 , 6F , 20 , AA , B 1 , 8C , 86 , 02 , 20 ,10, E5 , 20 , FD , AE  .73 
503  DATA  20 , 9E , AD , A5 , 0D , F0 , 3C , 20 , A3 , B6 , 85 , 02 , F0 , 34  .150 
506  DATA  A9 , DB , 20 , D2 , FF , A0 , 00 , A9 , A0 , 20 , D2 , FF , C8 , C4  .113 
307  DATA  02, D0, F6,A9,DC, 20, D2,FF,E6,D6,A3, 03,85,03  .2 

508  DATA  20 , 10 , E5 , A9 , Al , 20 , D2 , FF , A0 , 00 , B1 , 22 , 20 , D2  .233 

509  DATA  FF , C8 , C4 , 02 , D0 , F6 , A9 , A2 , 20 , D2 , FF , E6 , D6 , A5  .106 

510  DATA  03, 85, D3, 20, 10 , E3 , A9 , DD , 20 , D2 ,FF , A0 , 00 , A9  .197 

311  DATA  DF , 20 , D2 , FF , C8 , C4 , 02 , D0 , F6 , A9 , FF , 20 , D2 , FF  .222 

312  DATA  60 , A2 , 22 , 6C , 00 , 03 , 00 , 02 , A9 , 5A , A2 , 5E , 8D , 05  .132 

313  DATA  D4,8E,06,D4,A9,3A,A2,5E,8D,0C,D4,8E,0D,D4  .21 

314  DATA  A9,0F,8D,18,D4,A9,11,8D,04,D4,8D,0B,D4,A2  .252 

515  DATA  B0,A0, 10,8E,01 , D4 , 8C , 08 , D4 , A0 , 90 , CE , 01 ,D4  .167 

516  DATA  EE , 08 , D4 , AE , B7 , 1 4 , CA , D0 , FD , 88 , D0 , F 1 , 60 , A9  .240 

517  DATA  00 , 8D , B7 ,14, A9 , 04 , 8D , B6 ,14, 20 , 50 ,14,18, AD  .111 

518  DATA  B7 ,14, E9 ,18, 8D , B7 , 1 4 , CE , B6 ,14, AD , B6 ,14, D0  .228 

519  DATA  EC , A2 , 18 , A9 , 00 , 9D , FF , D3 , CA , D0 , FA , 60  .23 

599  »  . 65 

600  DATA  20,20,20,20,20,20,20,20,20,20,20,20,20,20  .252 

601  DATA  20,20,20,20,20,20,20,20,20,20,20,20,20,20  .253 

602  DATA  20,20,20,20,20,20,20,20,20,20,20,46,31,20  .96 

603  DATA  3A , 20 , 43 , 4F , 4D , 50 , 32 ,41, 2F , 36 , 43 , 4E , 34 ,41  .161 

604  DATA  20, 20, 20, 46, 33, 20, 3A, 20, 34, 52, 41 ,4E, 33, 41  .66 

605  DATA  43, 43, 49, 4F,4E, 45, 33, 20, 20, 20, 46, 35, 20, 3A  .13 

606  DATA  20,45,53,34,41 ,44, 4F, 20, 44, 45, 20, 43, 35, 45  .66 

607  DATA  4E , 54 ,41, 53 , 20 , 20 , 20 , 46 , 37 , 20 , 3A , 20 , 53 , 49  .97 

608  DATA  47, 53, 49, 43, 4E, 34, 45, 20, 54, 35, 52, 4E,4F, 20  .246 

609  DATA  20,20,20,20,30,41 ,52,41 ,20, 4F, 30, 43,49, 4F  .79 

610  DATA  4E, 45,53, 20, 3A, 20,42,41 ,52,52,41 ,20,43,53  .0 

611  DATA  30,41 ,43,49,41 ,44, 4F,32, 41 ,20,50,41 ,52,41  .99 

6 1 2  DATA  20 , 45 , 4C , 45 , 47 , 49 , 52 , 20 , 59 , 20 , 32 , 45 , 54 , 55  .132 

613  DATA  52, 4E, 20, 50, 41 ,52,41 ,20,43, 4F,4E, 46, 49, 52  .73 

614  DATA  4D, 41 ,52,20,20,20,20,20,20,20,20,20,20,20  .106 

615  DATA  20,20,20,20,20,20,20,20,20,20,20,20,20,20  .11 

616  DATA  20, 20, 2k3,<¿vo,  .¿0,20, 20, 20, 20, 20, 20, 20, 20, 20  .12 

617  DATA  20,20,20,20,20,20,20,20,20,20,20,20,20,20  .13 

618  DATA  20,20,20,20,20,20,20,20,20,20,20,20,20,20  .14 

619  DATA  20,20,20,20,20,20,20,20,20,20,20,20,20,20  .15 

620  DATA  20,20,20,20,20,20,20,20,20,20,20,20,20,20  .16 

621  DATA  20,28,03,29,20,31,39,38,38,20,42,19,20,43  .133 


622 

DATA 

623 

DATA 

624 

DATA 

623 

DATA 

626 

DATA 

627 

DATA 

628 

DATA 

629 

DATA 

630 

DATA 

631 

DATA 

632 

DATA 

633 

DATA 

634 

DATA 

635 

DATA 

636 

DATA 

699 

1 

700 

DATA 

701 

DATA 

702 

DATA 

703 

DATA 

704 

DATA 

705 

DATA 

706 

DATA 

707 

DATA 

708 

DATA 

709 

DATA 

710 

DATA 

711 

DATA 

712 

DATA 

713 

DATA 

714 

DATA 

713 

DATA 

716 

DATA 

717 

DATA 

718 

DATA 

719 

DATA 

720 

DATA 

0F , 0D , 0D , 0F , 04 , 0F ,12, 05 , 20 , 57 , 0F ,12, 0C , 04 
2E, 20, 43, 13, 03, 12, 09, 14, 0F, 20, 10, 0F, 12, 20 
4 A , 0F ,13, 26 , 20 , 46 , 0C ,15,18, 23 , 2E , 20 ,49,04 
03,01 ,20, 04, 05,20, 4A,4D, 40,46,20, 19,20,43 
04, 13,01 , 12,04, 0F, 20,48, 0F, 12, 12,09, 0C,0C 
0F , 2E , 20 , 53 , 03 ,14, 20 , 04 , 05 , 20 , 4 A , 15,01 , 0E 
20,43,01 ,12, 0C,0F, 13,20, 4D, 01 ,12,03, 0F, 13 
2E , 20 , 59 , 20 , 0C ,01, 20 , 09 , 0E , 05 ,13,14, 09 , 0D 
01 ,02, 0C, 05, 20,01 , 19, 15,04,01 ,20, 14,26,03 
0E, 09, 03, 01 ,20,04,05,20,46,05, 12, 0E, 01 ,0E 
04 , 0F , 20 , 4D , 0 1 , 12, 03, 0F, 13, 2E, 20, 20, 20, 20 

20,20,20,20,20,20,20,20,20,20,20,20,20, 20 

20,20,20,20,20,20,20,20,20,20,20,20,20, 20 

20,20,20,20,20,20,20,20,20,20,20,20,20, 20 

20,20,20,20,20,20,20, 20 

A2 , 00 , BD , 40 , 39 , D0 , 03 , 4C , 5D , 38 ,18, AD , 1 D , 38 
7D , 30 , 39 , 8D , 1 D , 38 , 90 , 03 , EE , 1 E , 38 , BD , 38 , 39 
8D , 60 , 04 , DE, 40 , 39 , BD , 48 , 39 ,C9 , 01 , D0 , 13 , FE 

38 . 39 ,  BD , 38 , 39 , C9 , 79 , D0 , 08 , A9 ,71 ,9D,38,39 
FE , 30 , 39 , 4C , 3D , 38 , C9 , 02 , D0 , F9 , DE , 38 , 39 , BD 

38 . 39 ,  C9 , 1 F , D0 , 08 , A9 , 78 , 9D , 38 , 39 , DE , 30 , 39 
C9 , 70 , D0 , E3 , A9 , 20 , 9D , 38 , 39 , E8 , E0 , 08 , D0 , 1 A 
A2 , 60 , A0 , 04 , 8E , 1 D , 38 , 8C , 1E , 38 , A0 , 00 , B9 , 40 
39 , F0 , 03 , 4C , B1 , 38 ,C8 ,C0 , 08 , D0, F3, 60 , 18 , AD 
00 , 39 , 69 , 30 , 8D , 00 , 39 , 90 , 03 , EE , 0 1 , 39 , AD , 00 
39 , BD , 1 D , 38 , AD ,01, 39 , 8D , 1 E , 38 , AD , 00 , 39 , C9 
90 , D0 ,11, AD ,01, 39 , C9 , 06 , D0 , 0A , A9 , 60 , 8D , 00 
39 , A9 , 04 , 8D ,01, 39 , 4C , 02 , 38 , A0 ,10, 20 , B3 , EE 
88 , D0 , FA , 4C , 00 , 38 , A2 , 79 , A9 , 20 , 9D , 48 , 07 , CA 
D0 , FA , 60 , A2 ,14, A9 , 20 , 9D , 5B , 07 , 9D , 83 , 07 , 9D 
AB , 07 , CA , D0 , F4 , 60 , A2 , 0E , A9 , 20 , 9D , 30 , 04 , 9D 
A0 , 04 , 9D , F0 , 04 , 9D , 40 , 05 , 9D , 90 , 05 , 9D , E0 , 05 
9D , 30 , 06 , 9D , 80 , 06 , CA , D0 , E5 , 60 , 00 , 00 , 00 , 00 
00 , 00 , 00 , 00 , 60 , 04 , 00 , 00 , 00 , A2 , 1 6 , A9 , 20 , 9D 
60 , 04 , 9D , B0 , 04 , 9D , 00 , 03 , 9D , 50 , 05 , 9D , A0 , 05 
9D , F0 , 05 , 9D , 40 , 06 , 9D , 90 , 06 , CA , D0 , E3 , 60 


.228 
.83 
.  194 
.  127 
.  48 
.97 
.  100 
.  17 
.72 
.27 
.226 
.29 
.30 
.31 
.220 
.  165 
.  136 
.  119 
.6 

.203 
.  140 
.  147 
.244 
.37 
.226 
.37 
.  14 
.  127 
.216 
.  173 
.26 
.  145 
.244 
.  141 
.48 
.221 
.  124 


ATENCION!  ANTES  DE  TECLEAR  O  CARGAR 
ESTE  LISTADO,  HAZ  LOS  SIGUIENTES  POKESi 
POKE  44 , 58  x  P0KE58*236 , 0 


PROGRAMA*  BOLSA 


1  REM  LA  BOLSA  .203 

2  REM  <0  1988  BY  QE2  .138 

3  REM  <0  1988  BY  COMMODORE  WORLD  .17 

4  i  .236 


3  POKE43, 100IPOKE46, 123iP0KE32, 1 60 iPOKESS, 100* POKE  .19 
56,142 

6  IF  PEEK <4096) 0120  THEN  PR I NT " C CLR 3 ERROR  EN  CREA  .2 
TOR ! " l END 

10  CLRi POKE33280,0i POKE53281 ,0*  PRINTCHR* (8)  i  8YS478  .64 
9  «  POKE33272 , 1 8 1 8YS4302 

13  DIMD#<19> iD#<0)-"CHOM3C2CRSRD3“iFORI-1TO19iD#<I  .233 
) -D* < I - 1 > ♦ “ C CRSRD 3 • « NEXT i Z-35449 1  Y- 1 323 

20  C(0)-6iC<l>-14iC<2)-3iC<3)-14iC<4)-6iC<3>-0» JU-  .106 
ll X-RND<-TI> 

22  X-0iFORI-lTO9iES*<I)«ES*< 1-1)4“  " i NEXTl hl -53270  .76 
25  DIM  TB*<444)  i  A«2i A*-M CSHIFTL3 CSHIFTE3 CSHIFTC3 CS  .153 
HIFTT3  CBHIFTU3  CSHIFTR3  CSHIFTA3  CSHIFTD3  CSHIFTE3  CS 
HIFTD3  CSHIFTA3  CSHIFTT3  CSHIFT03  CSHIFTS3 . " i GOSUB3000 


28  FORI-lT08tREADA*iEM*<I)-A*»NEXT  .132 

30  F0RI-1T0444*READA#  .92 

40  IF  AS-M"  THEN  TB* < I ) -TB# < 1-1 )  .242 

30  IF  A*<>--  THEN  TB#<I)-A#  .104 


60  NEXT t  A«4i A#"" CSHIFTL3  CSHIFTE3  CSHIFTC3  CSHIFTT3  CS  .4 
HIFTU3  CSHIFTR3  CSHIFTA3  CSHIFTC3  CSHIFT03 CSHIFTN3  CSH 
IFTC3  CSHIFTL3  CSHIFTU3  CSHIFTI 3  CSHIFTD3  CBHIFTA3 .  CSH 
IFTM3  CSHIFTA3CSHIFTZ3  CSHIFT03  l  444  CSHIFTT3 CSHIFT 
U3  CSHIFTR3  CSHIFTN3  CSHIFT03  CSHIFTS3 . " *  GOSUB5000 
63  F0RI“49T034i Y#  < 1-48) "CHRS  < I ) t  NEXT  .41 

70  DIMTLX<444) i F0RI-1T0444* TLX < I ) -I i NEXTl l A-6* A*-"  .234 
CSHIFTB3  CSHIFT A 3  CSHIFTR3  CSHIFT A 3  CSHIFTJ  3  CSHIFTA3  CS 
HIFTN3  CSHIFTD3  CSHIFT03  CSHIFTM3 CSHIFTA3 CSHIFTZ3 CSH 
IFT03. " *  GQSUB5000 

80  FORI-1TO230* X1-INT(444*RND<1)+1> i X2-INT <444*RND  .30 
<1)+1) 

90  A-TLX(Xl)  *TLX<Xl)-TLy.<X2)  i TLX <X2> -A* NEXT I  *  A-10*  .98 

A4--CSHIFTC3CSHIFT03CSHIFTN3CSHIFTC3CSHIFTL3 CSHIFT 
U3 CSHIFTI 3 CSHIFTD3CSHIFT03  CSHIFTP3  CSHIFT A 3  CSHIFTS 
3  C6HIFT03  l.“ 

100  GOSUB5000*  F0RI"1 TO250I X 1"INT  <444*RND ( 1 ) +1 ) l X2“  .162 
INT  (444*RND  <  1  >  ■*•  1 )  *A-TLX<X1> 

110  TLX(X1)-TLX<X2) i TLX < X2> «Ai NEXTl « A-13* A»-MCSHIF  .214 
TC3  CSHIFT03  CSHIFTN3  CSHIFTC3  CSHIFTL3  CSHIFTU3  CSHIFTI 
3  CSHIFTD3  CSHIFT03  CSHIFTP3 CSHIFTA3 CSHIFTS3 CSHIFT03 


2. " i 6OSUB5000 

120  6OSUB6000  .118 

130  POKE  198 ,0*  A#“**  CSHIFTN3  >MERO  DE  JUGADORES  <2/6>  .244 
i  7" * GOSUB5000 

140  FORI-0TO3.5STEP.3iPOKEZtC(I) i F0RP-1T023* NEXTP  .204 

150  BETA#:  IFA*0“"  THEN  170  .196 

160  NEXT  t  GOTO 1 40  .96 

170  A-ASC(A#)*IF  A* >30  AND  A-<34  THEN  190  .72 

180  GOTO  160  .206 

190  SYS3261* POKE 1177, Al NJ-A-48* POKEZ , 1  .190 


14/Commodore  World 


PIDA  NUESTRO  CATALOGO  CON  LAS 
ESPECIFICACIONES  DE  TODOS  LOS  PRODUCTOS 

¡PEDIRLO  SOLAMENTE  POR  CARTA! 

PEDIDOS  DE  MATERIAL:  POR  CARTA  O  TELEFONO 

ENVIOS  DE  MATERIAL:  POR  CORREOS  (C/R)  O  POR  AGENCIA 


200  PRINT  D*(4)  jTAB(8)  ¡  " CSHIFT+3 CSHIFT  SPC3CCOMM0] 
C 18SHIFT  SPCUCOMM-]" 

210  FORI-lTONJ«PRINTD* (3+1*2)  |TAB(8)  |  M  CCOMMIO  "  |  Y*  ( 
I) |"CCOMM\D  CSHIFTN3  CSHIFT03  CSHIFTM3  CSHIFTB3 CSHIFT 
R3CSHIFTE3  « C9SPC3 CCOMMI 1  " 

220  PRINTTAB (8) |  "  CCOMMGI  CCOMMMUSHIFT\ 3C  18COMMM3  CC 
OMM+3-iNEXTI 

230  PRINTTAB (8) " C CRSRU U COMMQ 3 C COMMM ] C COMMD 3 C 1 8COM 
MM  3  C  COMMN  3 " 

240  W-1*POKE198,0«FORI«0TO(NJ-1) * POKEY+ ( 1*80) f 46 
270  FQRP-0TC33. 3STEP. 5* POKE34272+ ( Y+ ( 1*80) ) ,C(P) iPO 
KEY+ ( I *80) ,46 
273  POKE33383+ ( 1*80) ,C(P) 

280  GETA4* IFA*0"M  THEN  300 
290  NEXI.'i  QOTQ270 

300  A-ASC(A*)tIF  A- >32  AND  A-<90  THEN  320 

302  IF  W-l  THEN  318 

303  IF  A-20  THEN  X» ( I ) -LEFT# ( X* < I ) , W-2) i W-W- 1 * POKE 
Y+ ( I *80) , 32 i Y— Y— 1 

307  IF  A-20  THEN  POKEY+ ( 1*80) , 46 

309  IF  A- 13  THEN  POKEY+ ( I *80) , 32i P0KE53585+ ( I *80 ) , 
1 1 Y-Y- (W-l ) i SYS3261 1 GOTO340 

318  GOTO290 

320  POKEY+ ( I *80 )  , A i P0KE55296+ ( Y+ ( I * 80 ) ) - 1 024 , 1 1  Y-Y 
+1IW-W+1 

323  IF  A- >64  THEN  A-A+1281 X* ( I ) -X* ( I ) +CHR* (A) 1  GOTO 
330 

327  X*(I)-X»(I)+A* 

330  IF  W— 9  THEN  W-l ■ Y-Y-81 P0KE33385+ ( 1*80) , 1 1 NEXTI 

1 GOTO350 

333  0OTO290 

340  W-l t NEXTI 

343  DIM  MDX  (NJ  ,8) 

330  A— 5+ (NJ*2) * A*-"CSHIFTC3CSHIFTA3CSHIFTD3CSHIFTA 
1  CSHIFTJ  3  C8HIFTU3  CSHIFTG3  CSHIFTA3 C8HIFTD3  C8HIFT03 
CSHIFTR3  CSHIFTD3  CSHIFTI 3  CSHIFTS3  CSHIFTP3  CBHIFT0  3  C 
SHIFTN3  CSHIFTE3  CSHIFTD3  C8HIFTE3  *90.000  CFLCH  ARR 
I BA  3 " » GOSÜB3000 

333  FORI  — 1TONJ 1 T ( I ) -9E4*  NEXTI 1 DIM  ET(NJ,8) 

338  FORP— 1 TO81 OF (P) -300*  NEXT 

339  F0RI-1T08*  EMX  ( I )  -1 100*  NEXT 
360  GOSUB6000 1 SYS4270 1 POKE4200 , 24 1 

370  SYS4789* A-0* B»-" CHOM3 CSHIFTT3URNO  DE  M+X*(TU)i 
GOSUB3 1 00 
380  GOSUB1300 

300  JU*-TB*(TLX(JU) ) 1 TC-ASC (LEFTf (  JU* , 1 ) ) 1 JU-JU+1 
503  TI - ( ASC (MI D$ ( JU$ , 2, 1 ) )— 48) 

308  IF  LEN  (JU#)«3  THEN  T2- (ASC (MID* (JU*,3, 1 ) ) -48) 

310  ON  TC-47  GOTO  530,600,680,700,730,800,830,900, 
2000 , 2030 

330  A— 16*  D-3* B4-"  CSHIFTS3UBE  AL  DOBLE  1  "+EM*(T1)| 
GOSUB51 00 

560  A— 18*  D— 0*  B4-"  3  CSHIFTQ3U&  EMPRESA  DESEAS  BAJAR 

A  LA  MITAD?" *G0SUB31 00 1 GOSUB4300 

363  EN-EMX ( T 1 ) *2 1 EP-EMX ( O ) / 2 

368  IF  O— TI  THEN  380 

370  GOSUB1600 

373  GOSUB1640 

373  EMX (TI) -EN 1 EMX ( O ) -EP 1 G0T0383 
380  IF  EN >2300  THEN  EMX (O) -1230 
583  GOSUB1500 
399  GOTO  3000 

600  A- 16*  D— 3*  B#-" CSHIFTS3UBEN  AL  DOBLE  1  M+EM4(T1) 
+"  Y  "+EM*ÍT2) *GOSUB5100 

610  A— 18*  D-0t  B<— " 3  CSHIFTQ3U&  EMPRESAS  DESEAS  BAJAR 
A  LA  MITAD?" IGOSUB51 00* GOSUB4600 
613  EN-EMX ( T 1 ) *2 1 EO-EMX ( T2 ) *2«  EP-EMX (O) /2* EQ-EMX ( O 
)  /2 

615  IF  (Tl-0  OR  TI— Q)  AND  (T2-0  OR  T2-Q)  THEN  633 
617  IF  Tl-0  OR  T 1 — Q  THEN  641 
619  IF  T2-0  OR  T2-Q  THEN  633 

62 1  GOSUB 1 600 1  GOSUB 1 620 1 GOSUB 1 640 1 GOSUB 1 660 1 GOSUB 1 
760*  GOT0637 

633  IF  EN >2500  THEN  EM7.(T1 ) -1230 
633  IF  EO>2300  THEN  EMX (T2) -1230 
637  GOSUB 1500 
639  GOTO3000 

641  IF  EN >2500  THEN  EMX (TI) -1250 

643  GOSUB 1620 

643  IF  Tl-0  THEN  651 

647  GOSUB 1640*  EMX ( T2 ) -EO  *  EMX (O ) -EP 1 G0T0637 
63 1  GOSUB 1 660 1 EMX ( T2 ) -EO 1 EMX ( Q ) -EQ 1 G0T0637 
653  GOSUB 1600 

637  IF  EO>2300  THEN  EM7.  (T2) -1250 
639  IF  T2-0  THEN  663 

66 1  GOSUB 1 640  x  EMX (TI) -EN  *  EMX ( O ) -EP 1 G0T0637 

663  GOSUB 1 660  *  EMX ( T 1 ) -EN 1 EMX ( Q ) -EQ  *  G0T0637 

680  A— 16*  D— 3* B4— " CSHIFTB3AJA  A  LA  MITAD  1  "+EM*(T1 

) IGOSUB3100 

685  A— 18*  D— 0*  B4— " 3  CSHIFTQ3UL  EMPRESA  DESEAS  SUBIR 

AL  DOBLE?" IGOSUB31 00 * GOSUB4 300 

687  EN— EMX (TI ) /2*  EP-EMX (O) *2 

689  IF  O— TI  THEN  697 

691  GOSUB 1680 «GOSUB 1720 

693  EMX (TI) —EN 1 EMX ( O ) — EP 1 GOSUB 1 300 

697  GOTO  3000 

700  A— 16*  D— 2*  B4— "BAJAN  A  LA  MITAD  1  "+EM*(T1>+"  Y 
" +EM* ( T2 ) 1 G0SUB3 1 00 

710  A-18«D-0*B4-"3CSHIFTQ3U*  EMPRESAS  DESEAS  SUBIR 
AL  DOBLE? "«G0SUB31 00 * GOSUB4600 
713  EN-EMX(Tl) /2i EO-EMX (T2) /2i EP-EMX (O) *2* EQ-EMX (Q 
)  *2 


.  150 
.  100 


.204 

.  168 

.242 
.  137 

.78 

.67 

.221 

.3 

.  143 
.248 

.72 
.  164 

.  143 
.231 

.  20 

.240 
.  193 

.  162 
.233 

.  196 
.37 


.  186 
.  185 
.  142 
.3 
.241 

.  163 
.3 
.66 
.73 
.  107 

.238 

.  100 

.  139 

.30 

.114 

.243 

.31 

.  160 

.111 

.47 

.232 

.  100 

.71 

.  141 
.  193 
.23 
.  129 

.  197 

.213 

.  165 

.87 

.203 

.251 

.205 

.  193 

.  13 

.  199 

.237 

.233 

.  173 

.249 

.  140 

.81 

.39 
.181 
.  109 
.23 
.  145 
.30 

.70 

.  153 


713  IF  (Tl-0  OR  Tl-Q)  AND  (T2-0  OR  T2-Q)  THEN  723  .233 

717  IF  Tl-0  OR  Tl-Q  THEN  727  .199 

719  IF  T2-0  OR  T2-Q  THEN  733  .25 

721  GOSUB 1680 «GOSUB 1700 «GOSUB 1720 «GOSUB 1740* GOSUB 1  .123 
760 

723  GOSUB 1500  .231 

723  GOTO  3000  ,173 

727  GOSUB 17 00* IF  Tl-0  THEN  733  [79 

731  GOSUB1 720*  EMX (T2) -EO*  EMX (O) — EP*  Q0T0723  ! 161 

733  GOSUB 1 740*  EMX (T2) — EO*  EMX (Q) -EQ*  G0T0723  .233 

733  GOSUB 1680* IF  T2-0  THEN  741  .203 

739  GOSUB 1 720*  EMX (TI) —EN*  EMX (O) — EP*  GQT0723  !l33 

741  GOSUB 1 740*  EMX (TI ) -EN*  EMX (Q) -EQ*  G0T0723  .209 


730  A— 16*  D— 3*  B4— " CSHIFTS3UBE  1000  ENTEROS  *  "+EM»(  .140 
TI) t  G0SUB5 1 00 

760  A— 1 8 *  D-0*  84  — "  C SH I FTB 3 AJ AN  200  TODAS  LAS  DEMAS.  .100 
" 1 G0SUB5 1 00 

763  T2-T1* GOSUB 1800  .89 

790  GOTO  3000  \ 239 

800  A-16* D-3* B4-"CSHIFTS3UBEN  1000  ENTEROS  1  "+EM*  ! 199 
( T 1 ) ♦ "  Y  " +EM4 ( T2 ) 1 G0SUB5 1 00 

810  A- 18*  D-0*  BS-" CSHI FTB3 AJAN  200  TODAS  LAS  DEMAS.  .125 
" *  G0SUB5 1 00  *  GOSUB 1 800 

820  GOTO  3000  ;  13 

850  A- 16*  D-3*  B4-"  CSHIFTS3UBE  600  ENTEROS  *  "+EM4(T  .*19 

1 ) t  GOSUBS100 

860  A-IB* D-0* B4-"3CSHIFTQ3U&  EMPRESA  DESEAS  BAJAR  .129 
300  ENTEROS? " *  G0SUB5 1 00 1 GOSUB4300 

863  IF  Tl-0  THEN  880  .174 

870  EN-EMX (TI ) +600* GOSUB 1600* EP-EMX (O) -300* GOSUB 16  .191 
40 

875  EMX (TI) -EN  t  EMX ( O ) — EP 1 GOSUB 1 500 1 GOT 0890  .126 

880  EN-EMX (O) +600* GOSUB 1600* EMX (O) -EN-300* DI (O) -0*  .207 
GOSUB 1300 

890  GOTO  3000  .83 

900  A-16*  D-0*  B4— "  CSHIFTS3UBEN  600  ENTEROS  1  "+EMS(  .73 
T 1 ) +"  Y  " +EM* ( T2 ) 1 G0SUB3 1 00 

910  A- 18*  B4-" I CSHIFTQ3UL  EMPRESAS  DESEAS  BAJAR  300  .163 
ENTEROS?" *  GOSUBS 1 00 *  GOSUB4600 
913  EN-EMX (TI) +600* EO-EMX (T2) +600 * GOSUB 1 600* GOSUB 1  .112 
620 


920  EMX (TI) -EN  t  EMX ( T2 ) -EO  .245 

924  EP-EMX (O) -300* EQ-EMX (Q) -300 «GOSUB 1640* GOSUB 166  .67 
0 

923  IF  DI  (0)0-1  THEN  DI(O)-0  .132 

930  IF  DI (Q)<>— 1  THEN  DI(Q)-0  .31 

933  EMX (O) -EP* EMX (Q)-EQ* GOSUB 1500  .222 

940  GOTO  3000  .133 


950  DATA  " CSHIFTK3  CSHIFTL3  CSHIFTM3 " , " CSHIFTH3  CSHIF  .183 
TO] CSHIFTE3  CSHIFTC3  CSHIFTH3  CSHIFT83 C8HIFTT3 " , " C8HI 
FTB  D  CSHIFTP  3 " , " CBHIFTE3  CSHIFTR3  CSHIFTT3 " , " CSHIFTFD 
CSHIFT03  CSHIFTR3  CSHIFTD3 " , " CSHIFTV3  CSHIFTW3 " , " CSHI 
FTG3  CSHIFTM3 " , " CSHIFTB3  CSHIFT A 3  CSHIFTY3  CSHIFTE3  CSH 
IFTR3 " 


1000 

DATA 

01,, 

,02,, 

,03,, 

,04,  , 

,05,  , 

,06, , , 

07,  , 

,08,  , 

.33 

1010 

DATA 

112, 

,113, 

,114, 

,113, 

,116, 

,117,, 

118, 

,123,, 

.  177 

124,, 

.  123, , 

,126, 

,127, 

,  128, 

1020 

DATA 

134, 

,  133, 

,136, 

,  137, 

,138, 

,143,, 

,  146, 

,147,, 

.  17 

148,  , 

.  136, 

1030 

DATA 

157, 

,138, 

,  167, 

,  168, 

,178, 

.238 

1040 

DATA 

21,, 

,22,, 

,23,, 

,24,, 

,23,, 

,  26, , , 

27,, 

,28,, 

.76 

1050 

DATA 

312, 

,  313 , 

,314, 

,313, 

,316, 

,317,, 

318, 

,323,, 

.34 

324,  , 

,323, , 

,326, 

,327, 

,328, 

1060 

DATA 

334, 

,333, 

,336, 

,337, 

,  338 , 

,343,, 

346, 

,347, , 

.76 

348,  , 

,336, 

1070 

DATA 

337, 

,338, 

,367, 

,368, 

,378, 

.  1 14 

1080 

DATA 

41,, 

,42,, 

,43,, 

,44,, 

,43,, 

,46,,, 

47,  , 

,48,, 

.116 

1090  DATA  512,313,514,513,316,317,318,323,324,325,  .80 
326 , 527 , 328 

1100  DATA  534,333,536,537,538,543,346,347,348,336  .22 

1110  DATA  337,338,367,368,378  .94 


1120  DATA  61, , 

,,,*2,, 

1  , , 63 , , 

, , 64 , , 

,,65,, 

i,66,, 

, ,67, , 

.82 

, , 68 , , , 

1130  DATA  712, 

,,,713, 

,,,714, 

,,713, 

,  ,716, 

,,717, 

, ,718, 

.  122 

1140  DATA  723, 

,  , ,724, 

,  , , 723 , 

, , 726 , 

,,727, 

,  ,728, 

,,734, 

.  152 

, ,733, , ,736, , , 
1150  DATA  743, 

737,,, 
, ,746, 

,738,, 

,,,747, 

,,748, 

,,756, 

,,737, 

,,758, 

.  176 

, ,767 , , ,768, , , 
1 160  DATA  81 , , 

778,, 

,,82,, 

,  , , 83 , , 

,,84,, 

,,83,, 

,  ,  86 ,  , 

, ,87 , , 

.38 

,,88,,, 

1170  DATA  912, 

,,913, 

,,,914, 

, , 913 , 

,,916, 

,,917, 

,,918, 

.  12 

1180  DATA  923, 

,,^24, 

,,,923, 

,,926, 

,,927, 

,,928, 

, ,934, 

.  128 

, ,933, , ,936, , , 
1190  DATA  945, 

937,,, 
, ,946, 

,938,, 

,,,947, 

,,948, 

,,956, 

,,957, 

,,938, 

.  152 

,,967,,, 968,,, 978,, 

1300  GOSUB4960* SYS 14552 «SYS 14397  .219 

1505  PRINT" CGRN3  CHOM3  CCRSRD3  CSHIFT+3  C 14SHIFT  SPC3C  .110 
COMM03C22SHIFT  SPC3CCOMM-3" 

1510  PRINT" CC0MMK3  C 14SPC3  C COMMN  3  C 22SPC 3  C COMM I ] "  .217 

1520  F0RI-1T07 1  PRINT" CCOMMG] C 14C0MMMD  CSHIFT\ 3  C22C0  .51 
MMM3  CCOMM+D " 

1330  PRINT" CC0MMK3 C 1 4SPC3  C COMMN 3  C 22SPC3 CCOMMI ]Mi NE  .223 
XT 

1340  PR I NT " C  COMMQ  3  C 1 4C0MMM 3  C  COMMD  3  C  22C0MMM 3  C  COMMN 3  .202 

1330  F0RI-1T08  .252 

1360  IFEMX(I) >999THEN  PRINTD* ( ( 1-1 ) *2) | " CC0MMK3 " | E  .14 
M*(I) 1 "  " | EMX ( I ) | " C  CRSRL  D ) C  6CRSRL  D ( " 

1370  I FEMX ( I ) <  — 999THEN  PRINTD* ( ( 1-1 ) *2) | " CCOMMK] " j  .168 
EM*(I) | "  " | EMX  ( I ) | " C  CRSRL  3 ) C  5CRSRL  3 ( " 
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Qz.  Commodore 


ábe  analog,  s.  a. 


Santa  Cruz  de  Marcenado,  31 
(Despacho  3Q.  14) 

28015  MADRID 


Tfnos.:  (91)  248  82  13 
Télex:  44561  BABCE 
Fax:  34  1  2425059 


MARZO  1988 


UNIDADES  DE  DISCO 


•  CUMANA,  3,5”,  externa,  1Mb,  A500/1000/2000  . 27.900  ptas. 

•  CUMANA,  3,5”,  externa  con  alimentación  para  montaje  en  cascada .  34.000  ptas. 

•  CUMANA,  3,5”,  interna,  2a  unidad  del  A/2000  . .  23.900  ptas. 

•  ROBTEK  /  SLIMLINE,  3,5”,  extema,  conmutable  AMIGA/ATARI  ST .  42.500  ptas. 

•  ROBTEK  /  SLIMLINE,  5,25”,  externa,  conmutable  AMIGA/ATARI  ST . .  49.950  ptas. 

•  EXPANSION  TECHNOLOGY,  disco  duro  de  20Mb,  60  ms .  150.500  ptas. 

PERIFERICOS  Y  ACCESORIOS 

•  GENLOCK,  mezclador  de  imágenes  de  vídeo  y  ordenador .  78.000  ptas. 

•  DIGIPIC,  digitalizador  de  imágenes  de  vídeo . 85.000  ptas. 

•  SOUNDSCAPE,  digitalizador  de  sonidos  .  29.500  ptas. 

•  SOUNDSCAPE  MIDI,  interfaz  midi  13.900  ptas. 

•  SOUNDSCAPE  UTILITY,  disco  con  utilidades  12.800  ptas. 


PROGRAMAS 


•  DIGI  PAINT,  compatible  con  DIGI  VIEW.  ¡¡Novedad!! .  13.700  ptas. 

•  CALLIGRAPHER  COLORFONTS,  de  INTERACTIVE  SOFTWARE.  ¡¡Novedad!!  18.250  ptas. 

•  TV  TEXT,  de  ZUMA  GROUP,  complemento  ideal  del  GENLOCK  25.200  ptas. 


PROGRAMAS  DE  ENTRETENIMIENTO _ 

•  Space  Battle+Othello+Backgammon+Ninja  Mission+Flight  Path 

•  XR  35+Final  Trip+Feud+Strip  Poker  2  y  otros  títulos . 

•  Super  Hang-On . 

•  Winter  Olympiad  88+Karting  Gran  Prix+Karate  y  otros  títulos 

•  California  Games+Auto  Duel+Gunship+Silent  Service 


2.100  ptas. 

2.800  ptas. 

3.800  ptas. 
4.600  ptas. 


CONEXIONES 


•  JOSTY,  MCL090,  cable  Centronics  impresora,  2  m.  largo 

•  JOSTY,  MCL092,  cable  Centronics  impresora,  3  m.  largo 

•  JOSTY,  MCL096,  cable  Centronics  impresora,  5  m.  largo 

•  JOSTY,  MVDU160,  cable  a  monitor  con  euroconector 

•  JOSTY,  MVDU164,  cable  a  monitor  IBM . 

•  JOSTY,  120/64,  interfaz  a  cassette  normal  para  C-64,  C-128 

•  JOSTY,  164,  interfaz  a  impresora  paralelo  C-64,  C-128 . 

•  JOSTY,  MCA01,  pulsador  de  reset  para  C-64 . 

•  JOSTY,  MCL136,  cable  del  C-64  a  TV . . 


LIBROS 


•  AMIGA  HARDWARE,  Ed.  Addison  Wesley,  272  pág . 

•  THE  AMIGA:  AN  INTRODUCTION,  Ed.  Precisión  Books,  210  pág. 

•  AMIGA  SYSTEM  HANDBOOK,  Ed.  Precisión  Books,  400  pág. 


1.475  ptas. 
1.895  ptas. 

2.950  ptas. 

1.950  ptas. 
1.425  ptas. 
3.575  ptas. 

3.475  ptas. 
225  ptas. 
225  ptas. 


7.250  ptas. 
2.625  ptas. 
4.180  ptas. 


IVA  ADICIONAL 


1380  NEXTI i GOSUB9000» RETURN  .46 

1600  IF  EM*¿(T1  X2499  AND  EN >2500  THEN  DI(Tl)-EN-25  .86 

00i EN- 2300 

1610  RETURN  .  139 

1620  IF  EMX (T2) <2499  AND  EO>2300  THEN  DI(T2)-E0-23  .128 

00 1  E O— 2300 

1630  RETURN  .  15g 

1640  IF  EP< 1 00  THEN  DI (0) — 1  * EP-100  .162 

1630  RETURN  #178 

1660  IF  EQ< 1 00  THEN  DI (Q) — 1 1 EQ-100  .22 

1670  RETURN  .199 

1680  IF  EN< 100  THEN  DI  (TI ) — 1 1 EN-100 

1690  RETURN  .218 

1700  IF  ECK100  THEN  DI (T2) — 1 : EO-100  .139 

1710  RETURN  .238 

1720  IF  EM7.<0)<2499  AND  EP>2500  THEN  DI (O) -EP-2300  .24 

1 EP-2300 

1730  RETURN  .2 

1740  IF  EMX(Q)<2499  AND  EQ>2500  THEN  DI  (Q)  -EQ-2300  .182 

1 EQ-2300 

1 730  RETURN  22 

1760  EMX(Tl)-EN*EMX(T2)-E0xEMX(0)-EP*EMy.(Q)-EQ*RET  .60 
URN 

1770  FORI-1  T08  .216 

1780  IF  EZ  (IX  100  THEN  DI  ( I )  — 1 1  EZ  ( I ) -100  .94 

1783  EMX  ( I ) — EZ ( I )  .93 

1790  NEXTI 1 RETURN  .206 

1800  EN-EHX  (TI )  +  1000  iEO-EMX(T2)+l 000 1  BOSUB 16001  803  .231 

UB1620* EMX (TI ) -EN» EMX (T2) -EO 

1810  FOR  I— 1T08i IF  I-Tl  OR  I-T2  THEN  1830  .171 

1820  EZ ( I >  —EKX ( I ) —200  .93 


1830  NEXTI 1 EZ (TI ) —EMX ( T 1 ) 1 EZ (T2) —EMX (T2) 1 GOSUB1770  .67 
x  GOSUB 1 500 1 RETURN 

2000  A— 16t  D— 3i BS— "  CSHIFTB3AJA  300  ENTEROS  1  "+EMS(  .233 
T 1 ) t  0OSUB3 1 00 

2010  A— 181 D— 01 BS— "  3  CSHIFTQ3Ufc  EMPRESA  DESEAS  SUBIR  .211 
600  ENTEROS?" «G0SUB31 00 IGO8UB4500 


2013  IF  TI -O  THEN  2030  .168 

2020  EN— EKX (TI) -500 1 GOSUB 1 680 1 EP— EMX ( O ) +600 1  GOSUB 1  .51 
720 

2023  EMX (TI ) -ENi EMX (O) -EPi GOTO2033  .120 

2030  EN— EKX (O) +1001 GOSUB 1600  .137 

2032  IF  EMX (O) -2300  THEN  DI (O) -100  .41 

2033  EMX (O) -EN  .174 

2035  GOSUB 1 300 1  GOTO3000  .116 


2030  A— I61 D— 3i BS-" CBHIFTB3AJAN  500  ENTEROS  1  "+EMS  .24 
<T1>+"  Y  " +EMS ( T2 ) 1 G0SUB3 1 00 

2060  A— 18*  D— 0x  BS— " 3  CSHIFTQ3U&  EMPRESAS  DESEAS  SUBI  .24 
R  600  ENTEROS?" IG0SUB31 00 IGOSUB4600 

2063  EN— EMX (TI ) -500»  EO— EMX (T2) -300 1 EP— EMX (O) +600*  E  .81 
Q— EMX (Q) +600 

2070  IF  (TI -O  OR  Tl-Q)  AND  (T2-0  OR  T2-Q)  THEN  208  .160 

0 


2072  IF  TI -O  OR  Tl-0  THEN  2083  .174 

2074  IF  T2-0  OR  T2-Q  THEN  2092  .62 

2076  GOSUB 1 680 x 80SUB 1 700 X80SUB1 720 18OSUBI 740 x GOSUB  .202 
1 760  *  GOSUB 1 300 1 GOTO3000 

2080  EN— EMX ( T 1 ) + 1 00 1 GOSUB 1 600  .18 

2081  IF  EMX (TI) -2300  THEN  DI (TI >-100  .109 

2082  E0-EMXÍT2) +100* GOSUB 1620  .64 

2083  IF  EMX (T2> -2300  THEN  DI(T2)-100  .127 

2084  EMX (TI) -EN 1 EMX ( T2 ) -EO 1 GOSUB 1 500 1 GOTO3000  .130 

2083  EN-EMX (TI) +100* GOSUB 1600  .23 

2086  IF  EMX  (TI) —2300  THEN  DI(T1)-100  .114 

2087  EMX (TI) -EN* GOSUB 1700  .153 

2088  IF  Tl-0  THEN  2090  .10 

2089  GOSUB 1 720 1 EMX ( T2 ) -EO 1 EMX ( O) -EPx GOSUB 13001  GOTO  .97 
3000 

2090  GOSUB 1 740 x EMX ( T2 ) -EO x EMX (Q)-EQx GOSUB 1500* GOTO  .170 
3000 

2092  GOSUB 1 680 «E0-EMX(T2)+ 100x GOSUB 1620  .12 

2093  IF  EMX (T2) -2500  THEN  DI(T2)-100  .137 

2093  EMX (T2) -EOl IF  T2-0  THEN  2098  .93 

2096  GOSUB1720! EMX (TI ) — ENx  EMX (O) — EP 1 GOSUB 1 500 1  GOTO  .70 
3000 

2098  GOSUB1740! EMX (TI ) —ENx  EMX (Q) — EQx  GOSUB 1500*  GOTO  .144 
3000 

3000  GOTO3200  . 183 

3010  GOSUB4820*  SYS3024  x F— 0x  E-0* D— 1 x  A— 17»  QS— " CSHIFT  .227 
P3ULSA  UNA  FUNC I < N  1  " x AS-QS+" C2SPC3 " 

3015  GOSUBS000 1 POKE 1 98 , 0  .78 

3020  GETASxIF  A*-""  THEN  3020  .205 

3030  M— ASC (Al)  .171 

3040  IF  M— 133  THEN  3130  .171 

3030  IF  M— 134  THEN  AS-QS+" CSHIFTF33" 1 GOTO3100  .131 

3060  IF  M— 133  THEN  AS-QS+" CSHIFTF33" 1 GOT031 00  .17 

3070  IF  M— 136  THEN  AS-QS+" CSHIFTF37" x GOTO3100  .161 

3080  GOTO  3020  .42 

3 1 00  SYS326 1 1  A- 1 7  x  GOSUB5000  .  1 8 

3110  GOSUB4800X  ON  M-132  GOTO  3500,4000,3800,3950  .58 

3130  SYS3261 1 IF  TU-NJ-1  THEN  3150  .14 

3133  SYS5024* A-17x A»-" CSHIFTI INVALIDADA  HASTA  QUE  .103 

JUEGUE  "  +  XS (NJ  — 1 ) x  GOSUB3000 

3140  GOSUB4800 1 GOSUB4800  x GOTO30 1 0  .206 

3130  AS— QS+" CSHIFTF3 1 " *  GOTO3100  .136 

3200  AQ— 0* FORH- 1 T08x IF  DI(H)<>0  THEN  GOSUB4980  .252 

3202  NEXTHxIF  AQ-1  THEN  3209  .172 

3203  GOTO3010  .133 

3209  AQ-0 x  FORH- 1 T08 x I F  DI (H) >0  THENGOSUB4980  .237 

3211  NEXTHiIFAQ-1  THEN  3230  .211 

3222  AQ— 0* F0RH-1T08» IF  DI(H)<0  THEN  GOSUB4980  .26 

3225  NEXTHxIF  AQ-1  THEN  3380  .147 

3227  GOSUB 1 300 * GOTO30 10  .41 


3230  SYS4789*  E— 1 1  A— 01 0—0*  AS—" CSHIFTG3  CSHIFT A] CSHIF  .76 
TN3 CSHIFT A 3  C SHI FTN3  C SHI FTC3  CSHIFT I 3  CSHIFT A 3  CSHIFTS 


3 " *  GOSUB5000 

3240  FORH— 1  T08  .148 

3230  IF  DI (H) >0  THEN  3280  .208 

3260  NEXTHx  GOSUB6000* G0T03222  .244 

3280  FORG-1  TO  NJ  .10 

3290  IF  ET  (G,H) >0  THEN  3310  .200 

3300  NEXTG*  GOTO3260  .134 

3310  GA-ET (G,H)*DI (H) x A-A+3*  IF  A>16  THEN  GOSUB6000  .80 

3313  GAS-STRS(GA) iD-1  .43 

3320  AS-XS(G-1)+"  GANA“+GAS+" CFLCH  ARRIBA!  DE  "+EM  .46 

S(H) x  GOSUB3000X  T (G) -T (G) +GA 

3330  GOTO3300  .21 

3380  SYS4789  . 39 

3390  FORH-ITO81IF  DIÍHX0  THEN  3400  .129 

3395  NEXTHx  GOSUB4820 x  8 YS4789 1 GOSUB 1 300 «  GOTO30 10  .88 

3400  FORG-1 TONJ « IF  ET(GfH)>0  THEN3420  .157 

3410  NEXTG «G0T03393  .131 


3420  A— 0*  D-l t  BS-" C8HIFTP3VRDIDA  PARA  "+XS (G-l ) +" . "  .103 
1GOSUBS100 

3430  A— A+2x  BS-" CBHIFTT3US  ACCIONES  DE  "+EMS(H)+"  H  .193 
AN  BAJADO. "iGOSUBS 100 

3440  A-A+2iBS-"CSHIFTY3  EST#N  POR  DEBAJO  DEL  L'MIT  .155 
E. -IGOSUB3 100 

3443  PP— ET (G,H) *200*  PS-STRS (PP)  .60 

3430  A-A+2iBS-"CSHIFTT3IENES  QUE  PAGAR  200CFLCH  AR  .31 
RIBA!  POR  ACC I < N ,  ESC5SPC3" 

3452  BS— BS+" CCRSRD ] DEC I R ,  UN  TOTAL  DE" +PS+ " C FLCH  A  .221 
RRIBA3" 

3435  GOSUB3100X A-A+4x BS-" CSHIFTA3  PAGAR  EN  DINERO,  .4 
ACCIONES  O  AMBAS. "iGOSUBS 100 
3460  A— A+2*  BS— " 3  CSHIFTQ3UI»  MODO  ELIGES  DE  PAGAR?"»  .217 
G0SUB5 1 00 1  A— A+2 x  D-0 

3465  QS-"CSHIFTD3,  CSHIFTA3,  CSHIFTB3  1  "»AS-QS+"C  .148 
8SPC 3 " *  GOSUB5000 *  POKE 198,0 


3470  GETASi IFAS-""  THEN  3470  .21 

3473  IF  AS— "D"  THEN  4300  .0 

3477  IF  AS— "A"  THEN  4330  .208 

3479  IF  AS-"B"  THEN  4400  .  12 

3482  GOTO3470  .157 

3300  SYS3024* A-17* QS-" CSHIFTC30MPRA  (CSHIFTC3)  O  C  .9 
SHIFTV3ENTA  (CSHIFTV3)  l  " 

3310  AS— QS+ " C  6SPC  3 " *  GOSUB3000  .91 

3520  CETAS x  IF  ASO"C"  AND  ASO"V"  THEN  3320  .189 

3330  IF  AS-"C"  THEN  3700  .211 

3340  SYS3261 1  A— 17x  AS— QS+"VENTA  " x  GOSUB5000*  G0SUB48  .97 

00 

3330  FORO- 1 TONJ 1 FORI - 1 TO81 IF  ET(O,I)<>0  THEN  3580  .47 

3360  NEXTI x  NEXTOl SYS3024»  A-17«  AS— " CSHIFTN3 ING>N  JU  .97 
0ADOR  TIENE  ACCIONES  !" 

3370  GOSUB5000! GOSUB4800X  GOSUB4800*  GOTO  3010  .49 

3380  SYS5024I A-17»  D-0»  BS-" 3  CSHIFTQ3U&  JUGADOR  VA  A  .159 
VENDER?" 1 GOSUB5100*  GOSUB4700 
3390  SYS5024I E— 0i F-0x  A— 17i D— 1 1 BS-" CSHIFT03K,  "  +  XS(  .22 
0-1)+",  3 DE  QU&  EMPRESA  VENDES?" 

3600  G0SUB5 1 00  x  J  E— O  x  GOSUB4900  .234 


3610  F— 0*  E-0x  A— 17x  D— 1 1 BS— " 3  CSHIFTC3USNTAS  ACCIONES  .28 
VENDES  DE  "+EMS (O) +"?" x  GOSUB3100 

3612  AVS— STRS (ET (JE, O) ) x  AWS— RIGHTS (AVS, (LEN (AVS) — 1  .56 
) ) x  AC-0 

3613  D-0»  A— 19*  AS—" CSHIFTN3  >MERO  (0/"+AWS+")  1 "+ESS  .229 
(LEN (AWS) ) 1 GOSUB5000 


3620  PO— 1 930  x  POKE 1 98 , 0  x  CO— LEN ( AWS ) x  W- 1 1  CMS— " "  .116 

3625  FORP— 0TO3. 5STEP. 3i P0KE54272+P0,C(P) x  POKEPO , 46  .3 
3630  CETAS  1  IF  ASO""  THEN  3640  .206 

3635  NEXTPt  GQTQ3623  .39 

3640  A— ASC (AS) 1 IFA>47  AND  A<38  THEN3670  .78 

3645  IF  W— 1  THEN  3660  .107 

3630  IF  A— 20  THEN  CMS-LEFTS (CMS ,W-2) l W-W-l « POKEPO ,  .200 
32  *  PO-PO- 1 1 POKEPO , 46 

3633  IF  A-13  THEN  POKEPO, 32 1 SYS3261 x GOT03685  .11 

3660  G0T0363S  . 50 

3670  POKEPO , Ai P0KE54272+P0,3*  PO— PO+1 1  W— W+l  .140 

3673  CMS— CMS+ASi IF  W-l-CO  THEN  3683  .51 

3680  GOT03623  . 38 

3683  CM-VAL (CMS) 1 IF  AC-1  THEN  RETURN  .77 

3687  IF  CM>ET ( JE , O)  THEN  3612  .117 

3690  T ( JE) — T ( JE) + (CM*EMX (O) ) 1 ET ( JE , O) — ET (JE, O) — CM  .186 
3693  GOSUB4800! GOTO3010  .71 


3700  SYS3261 x  A— 17*  AS— QS+" COMPRA" x  GOSUB5000*  G0SUB48  .34 
00 

3710  SYS3024 x  A— 17x  D-0*  BS— " 3  CSHIFTQ3U&  JUGADOR  VA  A  .12 
COMPRAR?" *  GOSUB5100*  JE-0X  GOSUB4770 
3720  SY63024*  E— 0x  F-0»  A— 17i D-l 1 BS-" CSHIFT03K,  "  +  XS(  .2 
0-1)+",  3 DE  OUL  EMPRESA  COMPRAS?" 


3730  GOSUB3100*  JE— Ox  GOSUB5200*  GOSUB4Q00  .238 

3740  F— 0x  E— 0*  A— 17i D— 1 x  BS— " 3  CSHIFTC3U4NTAS  ACCIONES  .2 
COMPRAS  DE  " +EMS (0)+"?"x  G0SUB5 1 00 
3730  IF  T  ( JE)  /EM7.  (O)  <OF  (O)  THEN  AV-INT  (T  ( JE)  /EM7.  (O  .136 
) ) x  GOTO3760 

3733  AV-OF(O)  .207 

3760  AVS— STRS (AV) x  AWS— RIGHTS (AVS , (LEN (AVS)  —  1 ) ) : AC-  .32 
1 1 GOSUB3613 

3763  CM-VAL (CMS ) 1 IF  CM>AV  THEN  3760  .143 

3770  T ( JE) -T ( JE) — (CM*EMX (O) )  .10 

3772  IF  CM— 0  THEN  3780  .32 

3775  MDX(JE,0>-(  (CM*EM7.(0)  )  +  (ET  ( JE,0)  *MD7.  ( JE,0)  )  )  /  .151 
(CM+ET ( JE ,0) ) 

3780  ET (JE , O) — ET ( JE , O) +CM*  GOSUB4800*  GOTO  3010  .252 

3800  R— 0  . 202 

3802  R-R+liIF  R>NJ  THEN  3900  .166 

3810  GOSUB4810X XZ-0ISV-0  .34 


18/Commodore  World 


3020  XY4-" CHOM3  C2CRSRD3  C3SPC3  CSHIFT+3  C89HIFT  SPC3C  .146 
COMM# ] C 8SH I FT  SPC3 CCOMM®] C 12SHIFT  SPC3CCOMM03 C8HIF 
T  SPC 3  C  COMM—  3  M 

3830  XZ4— “ C 3SPC 3 C CQMMG 3 C8CQMMM3 CSHIFTN  3  C8COMMM3  CSH  .234 
I  FT  \  3  C  1 2COMMM  3  C  SH I  FT  \  3  C  CC3MMM 3  C  COMM+  3  " 

3840  XQS— "  C3SPC3CCOMMQ3  C8CQMMM3  CCC3MMD3  C8CQMMM3  CCOM  .51 
MD  3  C 1 2C0MMM 3  C  CQMMD 3  i COMMM 3  C  COMMN 3 " 

3845  F0RI-1T08X IFET(R,I)<>0  THEN  3860  .150 

3850  NEXTI i QOTO3890  .197 

3860  PRINTXY*!  PRINT"  C  3SPC3  CCQMMK3  CSHIFTE3  CSHIFTM3  C  .131 
SHIFTP  3  CSHIFTR3  CSHIFTE3  CSHIFTS3  CSHIFTA3  CSHIFTS3  CCO 
Mfi\ 3  CSHIFT A 3  C2SH IFTC 3  CSHIFT I 3  CSHIFTO 3  CSH IFTN 3  CSHIF 
TE  3  C  SHIFTS3  CCOMM\ 3  CSHIFTV3  CSHIFTA3  CSHIFTL3  CSHIFT03 
CSHIFTR3  CSHIFTA3  CSHIFTC3  CSHIFTT3  CSHIFTU3  CSHIFTA3  C 
SH  I FTL  3  C  COMM\ 3  C  COMMZ  3  C  COMM I  3  "  «  PR I  NT X Z* I  A-3 
3870  F0RI-1T08X  IFETÍR,  1)00  THEN  3880  .175 

3875  NEXTI i  A-A— liPRINTD*<A> | XQ*x GOTO3890  .78 

3880  AC-ET ( R ,  I )  i VC-AC*EM*¿ < I ) i SV-SV+VC i  I F  MDX(R,I)>  .189 
EMX(I)  THEN  HJ4— " CCOMM\ 3— CCOMMI 3 " 

3881  IF  MD3C  <  R ,  I )  — < EMX  (  I  >  THEN  HJ*-" CCOMMN 3+CCOMMI 3  .212 

3882  PRINTD*  (A)  |  " C 3SPC 3  C COMMK 3 "  |  Eli*  ( I )  |  TAB  (12)  |  "  CC  .11 
OrtMN  3 “ i AC  j TAB (21 ) | M  CCOMM\ 3  " ; VC  j " CFLCH  ARRI BA3 " j TAB 
(34) |HJ* 

3884  A— A+2x  PRINTXZ4»  G0T03875  .33 

3890  SV4-STRSÍSV) i IF  A>10  THEN  GOSUB6000X GOSUB4810  .121 
3892  A— A+l i D— 0i A4— "  CSHIFTV3  CSHIFT A 3  CSHIFTL3  CSHIFTO  .37 
3  CSHIFTR3  CSHIFTT3 CSHIFTQ3 CSHIFTT3 CSHIFTA3 í SHIFTL3 
CSHIFTD3  CSHIFTE3  CSHIFTA3  C2SHIFTC 3  CSHIFT I 3  CSHIFTO 
3  C SH I FTN 3  C SH I FTE 3  C SH I FTS 3  « "+SV*+“  CFLCH  ARRIBA3 “ x 
GOSUB5000 

3894  A— A+2x  D— 0x  AS— *'  CSHIFTD3  CSHIFTI  3  CSHIFTN3  CSHIFTE  .13 
3  CSHIFTR3 CSHIFTO 3  CSHIFTE3 CSHIFTN3  CSHIFTM3 CSHIFTE 
3  CSHIFTT3CSHIFTA3  CSHIFTL3  CSHIFTI 3  CSH IFTC 3  CSHIFTO 3 
i  M+STR*(T(R>  )♦*■  CFLCH  ARRI BA3  "  x  GOSUB5000 
3896  BT-T(R)+SVxBT*-STR*(BT) i  A— A+3i D-0x A*-" CSHIFTT  .53 
3  CSHIFTO 3  CSHIFTT3  CSHIFT A 3  CSHIFTL3  CSHIFTD3 CSHIFTE3 
CSHIFTB3 CSHIFTI 3 CSHIFTE 3 CSHIFTN3 CSHIFTE3 CSHIFTS3 
xM*BT*+M  CFLCH  ARRIBA3- 

3898  GOSUB5000 1 GOSUB6000  x  GOTO3802  . 65 

3900  GOSUB1500X  GOTO3010  .205 

3950  TU-TLKli IFTU-NJ  THEN  TU-0  .247 

3960  IF  JU— 444  THEN  10000  .187 

3970  SYS5024X A-0: B*-M CH0M3 CSHIFTT3URN0  DE  M+X*(TU)  .229 
♦ M  C  7 SPC 3 " «  G0SUB5 1 00  x  GOTO500 

4000  SYS5024  x  A—  1 7x  D— 0x  BS-*'  3  C  SHIFTQ3U&«  JUGADOR  VA  A  .161 
CAMB I AR7 M  x  G0SUB5 1 00 1 J  E-0  x  GOSUB4770 
4010  E-0x  F— 0x  A— 17x  D— 1 1  B4— M  CSHIFT03K  t  M  +  X* (O- 1 > +“ t  .75 
3  A  QU I &N7 " x  J  E— O : G0SUB5 1 00  x  GOSUB4770 

4020  F-0x  E— 0x  A- 17  x  0S-" CSHIFTD3 INERQ  ( CSHIFTD3 )  O  C  .61 
SHIFTA3CCI0NES  ( CSHIFT A 3 )  x  " 

4030  A*-Q*+  M  C  8SPC 3 " s  GOSUB5000  . 227 

4040  GETASx IFA*<>MD"  AND  ASO "A"  THEN  4040  .3 

4050  IF  AS— “DH  THEN  4150  .129 


4060  A— 1 7 x  AS— QS+M  ACCIONES **  x  GOSUB5000X  GOSUB4800  .199 

4062  FORI— 1T08: IF  ET(JE,I)<>0  THEN  4065  .201 

4064  NEXTI x SYS5024 x  G0T07 100  .173 

4065  SYSS024i E«0x  F— 0x  A— 17x  D— 1 x  BS«“ CSHIFT03K ,  M  +  XS(  .26 
JE— 1  >•*■",  3 DE  QUi  EMPRESA?" 

4070  GOSUB5 1 00  x  J  F-0  x  GOSUB4900  . 1 95 

4080  F— 0x  E-0x  A— 17x  D— 1 x  BS-" 3  CSHIFTC3U#NTAS  ACCIONES  .239 
LE  DAS  DE  "+EMS  (O) -*■"?"  XGOSUB5100 
4090  AVS-STRS(ET<JE,0) ) xAWS-RIGHTS(AVS, (LEN(AVS)-l  .249 
) ) x AC-1 XGOSUB3615 

4100  CM— VAL ( CMS ) i  I F  CM>ET<JE,0>  THEN  4090  .52 

4110  ET ( JF , O) -ET ( JF , O) +CMx  ET ( JE , O) — ET ( JE , O) — CMx  GOS  .118 
UB4800X  GOTO3010 

4150  A-17x  AS-QS+"DINEROC2SPC3 " x  GOSUB5000: GOSUB4800  .68 
4160  SYS5024x  E-0i F— 0x  A— 17  x  D— 1 x  BS-" CSHIFT03K,  "  +  XS(  .118 
JE-1)+",  3 CSHIFTC3U#NTAS  PESETAS  LE  DAS?" 

4170  GOSUB5100  .96 

4180  AVS—STRS (T(JE))í AWS=RIGHT S ( AVS ,  (LEN ( AVS ) — 1 ) ) :  .108 

AC— 1 1  G0SUB36 1 5 

4190  CM— VAL ( CMS ) x I F  CM>T(JE)  THEN  4180  .138 

4200  T (JE) — T (JE) — CMx  T (O) -T (O) +CMx  GOSUB4800X  GOTO301  .124 
0 

4300  SYSS261  x  AS— QS-*-" DINERO C2SPC3"  :  GOSUB5000  .202 

4310  IF  T (G) ->PP  THEN  T (G) — T (G) — PPx  GOSUB6000X  G0T03  .244 
395 

4317  PQ-INT ( (PP-T (G) ) /200) x IF  PQ>ET (G,H)  THEN  PQ-E  .209 
T  (G ,  H) 

4319  PQS— STRS(PQ) x PRS-STRS ( T (G > )  .65 

4320  A-A+3x  D-l  i  BS— “PAGAS "+PRS-*-”  CFLCH  ARRIBA]  Y"+PQ  .58 
S-*-"  ACCIONES.  "XG0SUB5 100 

4330  T  (G)  «0x  ET  (G  ,H)  -ET  (G ,  H)  -PQx  IF  ET(G,H><0  TriEN  E  .174 
T (G , H) -0 

4340  GOSUB6000: GQT03395  .250 

4350  SYS5261 1  AS -QS-*-*' ACCIONES"  :  GOSUB5000X  ET  iG,H)  -0:  .172 

GOSUB6000X  G0T03395 

4  400  SYS5261  xAS-QS-*-"  AMBAS C  3SPC  3  "  í  GOSUB5000  s  A-A+3  .69 

4410  D— 1 x  BS  =  " 3  C SH IFTC  3USNT0  DINERO  PAGAS?" x G0SUB5 1  .197 

00 

4415  IF  PP>T (6)  THEN  PR-PP: PP-T (G)  .60 

4420  AC-1 i AVS-STRS (PP) x  AWS-RIGHTS ( AVS ,  (LEN (AVS) -1 )  .25 

) x  GQSUB36 1 5 

4430  IF  CM>PP  THEN  4420  .99 

4435  IF  PR>T (G)  THEN  4450 

4440  T(G)«T (G) —CMx  PP— PP— CMx  ET (G  f  H) — ET (G  f  H)  —  INT (PP/  ! 37 
200) » GOSUB4830X  G0T03395 

4450  T (G) — T (G) —CMx  PR— PR— CMx  ET (G,H) — ET (G,H)  —  INT (PR/  .81 
200) 1 GOSUB4830X  G0T03395 

4500  P0KE198 , 0x  FORO— 1 T08x  F-0x  E— 1 x  A— 19»  AS— EMS (O) x  GO  .227 


.  161 

1 CCRSRD3  .203 


4510  IF  F-0  THEN  4530 

4520  SYS5261 x  SYS14524x  E«0x F-0x  A-19x  D-l x  BS- 
CSHIFT03K ,  "•♦■EMS  (O)  x  GOSUB5 1 00 x  RETURN 
4530  SYS14S24x  NEXTOx  GOTO4500 


TEX-HAFtD,  S.A. 

Corazón  de  María,  9  -  28002  MADRID  -  TELFS:  416.95.62  y  416.96.12 

DISTRIBUIDOR  OFICIAL  COMMODORE  EN  MADRID 
SERVICIO  DE  ASISTENCIA  TECNICA 


COMMODORE  PC’S 


¡LOS  MEJORES  PRECIOS! 


-  COMMODORE  PC-1: 

106.600 

-  COMMODORE  PC-10: 

138.900 

-  COMMODORE  PC-20: 

206.000 

IVA  INCLUIDO 

-  IMPRESORAS  MATRICIALES  SEIKOSHA 

-  IMPRESORAS  LASER  KYOCERA 

-  PLOTTERS  HITACHI 


COMMODORE  AMIGA 


-  AMIGA  500  Y  2000 

-DISPONEMOS  DE  TODOS  LOS  PERIFERICOS  Y 
EXPANSIONES  DEL  MERCADO 

-EL  MEJOR  SOFTWARE  DE  APLICACIONES  Y 
ENTRETENIMIENTO 

-  SOLICITE  UNA  DEMOSTRACION  SIN 
COMPROMISO  DE  CUALQUIER  APLICACION 


ENVIOS  EN  48  HORAS  A  CUALQUIER  PUNTO  DEL  PAIS 


4600  POKE198,0*FORO-1TO8*F-0*E-1*A-19«D«2*A*-EM*(O  .131 
) * GOSUB5000 

4610  IF  F-0  THEN  4630  • 

4620  SYS3261*SY814524*A-19*D-2*F-0*B*-"CCRSRD3CSHI  .16 
FTO  3  K ,  “  +EMS  (O)i  G0SUB3 1 00 1  BOTO4640 

4630  SYS1 4324»  NEXTO*  GOTO4600  .0 

4640  FORQ-1TO0: IF  Q-0  THEN  4670  .30 

4643  E-li A»19*D-22*A*-Eh*(Q) «GOSUB5000  .207 

4630  IF  F-0  THEN  4670  .54 

4660  8YS3261 1 SYS14335*  A— 19*  D— 2i B*— "  CCRSRD3 CSHIFT03  .254 
K,  "+EH*(0)+"  Y  "  +EM*  ( Q )  i  G0SUB3 1 00 1  RETURN 
4670  SYS 14533i NEXTQi GOTO  4640  .242 

4700  POKE 198,0* FORO— 1  TO  NJ  .138 

4710  FORI— 1T08« IF  ET(O,I)<>0  THEN  4730  .248 

4720  NEXT 1 1 NEXTOt  GOTO4700  .16 

4730  F— 0*  E— 1 1  A— 19i AS— X# (0—1 ) i GOSUB5000  .112 

4740  IF  F-0  THEN  4760  .144 

4730  SYS3024I RETURN  .200 

4760  SYS1 4324* NEXTO* GOTO4700  .194 

4770  POKE 1 98 ,  0  x  FORO— 1  TO  NJ  .208 

4773  IF  OOJE  THEN  4785  .9 

4780  NEXTOs  GOTO4770  .90 

4783  F— 0i E-l l A— 19«  A#— X* (0—1 ) i GOSUB5000  .167 

4790  IF  F-0  THEN  4795  .220 

4793  SYS5024* RETURN  .243 

4795  SYS 14324* NEXTO IGOTO4770  .105 

4800  GOSUB7000IFGRI-1TO1000* NEXT i RETURN  .90 

4810  SYS4789*  A— 0*  D— 0t  BS— "  CHOM3  CSHIFTE3STAD0  DE  CUE  .150 
NT  AS  DE  "+X#  (R-l  )■*•".  "  *  G0SUB5 100*  RETURN 

4820  FORI  — 1T08«  DI ( I ) —0*  NEXT  *  RETURN  .18 

4830  FORK-ITO81IF  T (K) <0  THEN  T(K)-0  .234 

4835  IF  ET (G , K) <0  THEN  ET(G,K)-0  .5 

4840  RETURN  .  32 

4900  POKE 1 98 , 0 1  FORO- 1 T08 « I F  ET(JE,O)<>0  THEN  4920  .225 

4910  NEXTO* GOTO4900  .213 

4920  F-0*D-0*E-1* A-19»A*— EM*(0> 1 GOSUB5000  .119 

4930  IF  F-0  THEN  4950  .79 

4940  SYS5024* RETURN  .135 

4950  SYS 14524* NEXTO * GOTO4900  .1 

~4960  FORI -1 T08*  IFEMX(I)  >2300  THEN  EMX  ( I )  -2500  .181 

4970  NEXT* RETURN  .65 

4980  F0RP-1T0NJ* IF  ET(P,H)>0  THEN  AQ-1 «RETURN  .81 

4985  NEXTP*  RETURN  .142 

5000  B-LEN (Al) t  B-B+2* C- ( (40-B) /2)  .187 

3013  IF  D >0  THEN  C-D  .226 

3017  IF  E-l  THEN  5040  .30 

5020  FORI— 0TO2. 5STEP. 5*  SYS5040 , A+2 , C , C ( I ) , A*«  FORP—  .101 
1 TO20* NEXT  *  NEXT  *  RETURN 

5040  FORI— 0TO3. 58TEP. 5*  GOSUB5080  .179 

3030  IF  F— 1  THEN  F-0* RETURN  .231 

5033  IF  F-2  THEN  RETURN  .214 

5060  NEXT 1 8OTO3040  .71 

5080  SYS5040 , A+2 ,  C ,  C  ( I ) , A$  .179 

5082  IF  PEEK ( 1 97 ) —60  THEN  F-ll RETURN  .139 

3083  IF  PEEK ( 197) -1  THEN  F-2* RETURN  .72 

3083  IF  PEEK ( 1 98 ) <  >0  THEN  POKE198,0  .196 

5090  RETURN  . 47 

3100  FORI-0TO2. 5STEP. 5*  P0KE646,C ( I ) 1 PRINTD* (A) * TAB  .33 
(D) f  B$ 

3110  F0RP-1T013* NEXT* NEXT* RETURN  .63 

5200  POKE 1 98,0* FORO- 1T08* IF  OF(O)<>0  THEN  3220  .102 

5210  NEXTO* GOTO3200  .192 

3220  F-0 1  D— 0 1  E— 1 1  A— 1 9  *  A#— EM$ ( O ) 1 QOSUB5000  .164 

5230  IF  F-0  THEN  3250  .244 

3240  SYS3024* RETURN  .180 

3230  SYS 14324 «NEXTO * GOTO3200  .140 

6000  POKE 198 ,  0*  E— 1 1  A— 19*  D— 34*  F— 0*  A*— M  CSHIFTE 3  CSHIF  .193 
TS  3  C  SH I FTP 3  "  *  GQSUB3000 

60 1 0  SYS526 1  *  S YS4789  *  E-0  *  D-0  *  A-0  *  RETURN  .  85 

7000  NM- I NT ( 6+RND ( 1 )  + 1 ) l IF  NM-6  THEN  RETURN  .79 

7002  IF  PEEK ( 1 67 ) <  >PEEK ( 1 68 )  AND  PEEK(168)<>0  THEN  .137 
RETURN 

7005  ON  NMGOTO  7200,7230,7300,7230,7300  .186 


7100  E— 0*  F— 0*  A— 17*  D— 0*  A$— " CSHI FTP 3  CSHIFTE 3 CSHI FTR 3  .105 
CSHI FTO 3  CSHIFTS3CSHIFTI3  CSHIFTN3  CSHIFT03  CSHIFTT 
3  CSHIFT I 3  CSHIFTE 3  CSHI FTN 3  CSHIFTE 3  CSHI FTS 3  CSHIFTN3 
CSHIFTI 3  CSHIFTN3  CSHIFTG3  CSHIFTU3  CSHIFTN3  CSHIFTA3  C 
SHIFTA3  C2SHIFTC3  CSHIFTI 3 CSHIFT03 CSHIFTN3 ! " t  GOSUB50 
00 

7110  GOSUB4800 1 GOSUB4800 1 GOTO30 1 0  .95 

7200  AS-" CSHIFTE3CSHIFTS3  CSHIFTT 3  CSHIFTA3  CSHIFTM3  C  .120 
SHIFT03  CSHIFTS3  CSHIFTE3 CSHIFTN3  CSHIFTE 3  CSHIFTL3 
CSHIFTT  3  CSHIFTU3  CSHI FTR 3  CSHIFTN3  CSHIFT03  "+STR#  ( JU) 


iGOSUB  10200 (RETURN 

7230  BA— I NT ( NJ +RND ( 1 )  + 1 )  .16 

7233  FORI— 1T08* IF  ET(BA,I)<>0  THEN  7263  .13 

7260  NEXT I* RETURN  .66 

7263  IF  MDXÍBA, I) >EMX(I)+400  THEN  7273  .221 

7270  GOTO7260  . 88 

7273  DF-MDXÍBA,  I ) -EM7.  ( I )  » DF#-STR* (DF)  .103 


7280  A*-X*(BA-1)+",  CSHIFTT3 CSHIFTU3 CSHIFT83  CSHIF  .72 
TA3 C2SHIFTC3 CSHIFTI 3 CSHIFT03 CSHIFTN3 CSHIFTE3 C SHIFT 
S3  CSHIFTD3CSHIFTE3  "+EM*<I)+"  C8HIFTE3 CSHIFTS3 C8H 
IFTT3  CSHIFTA3  CSHIFTN3  C8HIFTB3  C8HIFTA3  C8HIFT83  CSHI 
FTT3  CSHIFTA3  CSHIFTN3  CSHIFTT3C8HIFTE3  CSHIFTB3 CSHIF 
TA3  C SHIFT J  3  CSHIFTA3  C8HIFT83 ,  ■ 

7285  Al CSHI FTE3  CSH IFTX 3  CSHIFTA3  CSHI  FTC3  CSHIFTT 3  .21 
CSHIFTA3  CSHIFTM3  CSHIFTE3  C8HIFTN3  CSHIFTT3  CSHIFTE3 "+ 

DFf  ♦**  CSHIFTE3  CSHIFTN3  CSHIFTT 3  CSHIFTE 3  CSHI FTR3  CSHI 
FT03  CSHIFTS3  CSHIFTP3CSHIFT03CSHIFTR3  CSHIFTD3  CSHI 
FTE3  CSHIFTB3  CSHIFTA3  CSHIFTJ  3  CSHIFT03  CSHIFTD3 CSHIF 
TE 3  CSHIFTL3  CSHIFTE 3  CSHIFTQ3  CSHIFTU3 CSHIFTI 3  C SHIFT 


L3 CSHIFTI 3 CSHI FTB 3 CSHI FTR 3 CSHIFTI 3 CSHI FTO 3  " 

7287  A2S-"  CSHIFTD3  CSHIFTE 3  CSHIFTM3  CSHIFTE3  CSHIFTD  .61 
3  CSHIFTI 3  CSHI FTA3  CSHIFTE3 CSHIFTN3  CSHIFTL3  CSHIFTA 
3  CSHIFTC3  CSHIFT03  CSHIFTM3  CSHI FTP 3  CSHIFTR3  CSHIFTA 3 


. ■ j a*-AS+A 1 *+ A2* *  GOSUB 1 0200 1  RETURN 

7300  BA— I NT ( NJ  *RND <  1 )  + 1 )  .66 

7310  FORI— 1T08* IF  ET(BA,I)<>0  THEN  7330  .184 

7320  NEXTI* RETURN  .126 

7330  IF  HDX(BA,  I ) +400<EM*/.  ( I )  THEN  7350  .36 

7340  GOTO7320  . 46 

7350  DF-EM7.(I)-MD7.(BA,I)  *  DF*-STR*  (DF)  .74 


7360  AS— X<  (BA— 1 )  ■*■**  ,  CSHIFTT3  CSHIFTU3  CSHIFTS3  CSHIF  .128 
TA3  C2SHIFTC3  CSHIFTI 3  CSHIFT03 CSHI FTN3  CSHIFTE 3  C SHIFT 
S3  CSHIFTD3  CSHIFTE 3  "+Eh*(I)+"  CSHIFTE3  CSHIFTS3 CSH 
IFTT3  CSHIFTA 3  CSHI FTN3  CSHIFTB3 CSHIFTA3 CSHIFTS3 CSHI 
FTT3  CSHIFTA 3  CSHIFTN3  CSHIFTT 3  CSHIFTE 3  CSHIFTA3 CSHIF 
TL3  CSHIFTT3  CSHIFTA 3  CSHI FTS 3 ,  - 

7370  Al " CSHIFTE 3  CSHIFTX  3  CSHIFTA3  CSHIFTC3  CSHIFTT3  .78 
CSHIFTA 3  CSHIFTM3  CSHIFTE3  CSHIFTN3  CSHIFTT3  CSHIFTE3  M  + 

DFS+"  CSHIFTE 3  CSHIFTN3  CSHIFTT 3  CSHIFTE 3  CSHI FTR 3  CSHI 
FT03  CSHIFTS3  CSHI FTP 3  CSHI FTO 3  CSHI FTR 3  CSHIFTE3  CSHI 
FTN 3  CSHI FTC 3  CSHIFTI 3  CSHI FTM3  CSHIFTA 3  CSHIFTD3 CSHIF 
TE3  CSHIFTL3  CSHIFTE 3  CSHIFTQ3  CSHIFTU3  CSHIFTI 3  C SHIFT 


L 3  CSHIFTI 3  CSHI FTB 3  CSHI FTR 3  CSHIFTI 3  CSHI FTO 3 . M 
7380  AS-ASEAIS* GOSUB 10200* RETURN  .226 

9000  FORI— 1 4640  TO  1 4647* POKEI , 0* NEXT  .89 

9010  FORI-14648  TO  14655:  POKE^I  ,113*  NEXT  .107 

9020  FORI  — 1  TO  8*  POKEI 4655+ 1 ,  (EMX( I ) / 100) *7. 05: NEX  .113 
T 

9030  FORI  — 14664  TO  14671  * POKEI , 1  * NEXT  .77 

9040  POKE 14592, 96 «POKE 14593, 4 «SYS 14336 «RETURN  .37 

10000  SYS4789:  A-0*  A*-'*  CSHIFTY3  A  SE  HAN  AGOTADO  LOS  .189 
TURNOS" *  GOSUB5000 

10010  POKE 198 ,0*  A— 3*  Q$— " CSHIFTE3L  JUEGO  ERA  POR  AP  .241 
UESTA  (S/N)  7“ *  AS-Q$+M  C2SPC3" 1 GOSUB5000 

10020  GETB»* IFB*-""  THEN  10020  .233 


10030  IF  Bf-"SM  THEN  SYS5261 * A«-Q*+ "  CSHIFTS3 " : GOS  .145 
UB5000 : J  U* 1  *  GOSUB 1500*  GOTO3950 

10035  IF  B*-"N"  THEN  SYS5261 * A*-QS+"  CSHIFTN3 " * GOS  .232 
UB5000 *  GOTO 1 0040 

10038  GOTO 10020  .187 

10040  B$-MM*FORI-lTONJ-l*B*-B*+X* (1-1)+", "«NEXT  .49 
10050  B*-B*+M  CSHIFTY3  CSHIFTP3  CSHIFT03  CSHIFTR3  CSH  .119 
IFTS3  CSHIFTU3  CSHIFTP3  CSHI FTU 3  CSHIFTE 3  CSHI FTS 3  CSHIF 
TT  3  CSHIFT03  CSHIFTA3  "+X* ( 1-1 ) +" . " 

10060  B$— " CSHIFTG3  CSHI FTR 3  CSHIFTA 3  CSHI FTC 3  CSHIFTI 3  .145 
CSHIFTA 3  CSHI FTS 3  CSHIFTA 3  "+B*+"  CSHIFTE3  CSHIFTS3  C 
SHIFTP3  CSHIFTE 3  CSHI FTR 3  CSHI FTO 3  CSHIFTQ3  CSHIFTU3  CS 
HIFTE3  CSHI FTO 3  CSHI FTS 3  CSHIFTH3  CSHIFTA 3  CSHI FTY 3  CS 
HIFTA3  CSHIFTG3  CSHIFTU3  CSHI FTS 3  CSHIFTT 3  CSHIFTA 3  CSH 
IFTD3  CSHI FTO 3 .  CSHIFTH3  CSHIFTA 3  CSHIFTS3  CSHIFTT 3  CSH 
IFTA3  CSHIFT03  CSHIFTT 3  CSHI FTR 3  CSHIFTA 3 ! " 

10070  SYS4789  *  A*-B*  *  GOSUB 1 0200 1 POKE4270 , 96  .119 

10080  IF  PEEK ( 1 67 ) <  >PEEK ( 1 68 )  THEN  SYS3261 *  GOTO 100  .7 
80 

10090  END  .147 

10200  POKE 1 67 , 1 40 1  POKE 1 68 , 1 49+LEN ( A* ) /3  .213 

10210  SYS4536*  SYS4760, AS*  SYS4864* SYS4335*  POKEMI ,PE  .153 
EK(hI)0R8: RETURN 
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GE0S0CI0S 

Se  ha  creado  un  nuevo  tipo  de  socio,  el 
Geosocio,  que  disfrutará  de  los  mismos 
beneficios  que  el  socio,  sólo  que  con 
algunas  modificaciones. 

La  inscripción  se  efectuará  con  la  com¬ 
pra  del  programa  GEOS,  al  precio  especial 
de  10.000  ptas  en  vez  de  las  15.000  que  es 
su  precio  real. 

Tendrán  también  el  10  por  ciento  de 
descuento  en  todos  los  productos 

Todos  los  meses  recibirán  un  disco  en 
formato  GEOS  con  toda  la  infomación 
de  productos  y  actividades,  pagando  500 
ptas  de  gastos. 

Podrán  obtener  el  MODEM,  cuyo  pro¬ 
grama  va  incluido  en  el  GEOS  con  un  30 
por  ciento  de  descuento  y  acceso  gratuito 
a  la  database. 

Ingresarán  en  el  club  de  intercambio  en 
disco  pagando  1.000  ptas.  con  cada  cam- 

Y  participarán  y  tendrán  prioridad  en 
todas  las  actividades. 


ESTRATEGIA 

BISMARK,  DISC . 3.600 

WAR  1N  SOUTH  PACIFIC,  DISC . 6.500 

PANZER  GRANADIER,  DISC . 6.900 

FIELDS  OF  FIRE,  DISC . 4.900 

WARSHIP.  DISC . 7.900 

FIELDS  OF  FIRE,  CASS . 3.100 

WAR  GAME  CONSTRUCTI.  DISC . 5.900 

CONVOY  RAIDERS,  DISC . 3.900 

WAR  GAME  GREATS,  CASS . 4.9C0 

LEGIONS  OF  DEATH,  CASS . 3.100 

CONFL1CT  VIETNAM,  CASS . 3.900 

MICRO  RHITM,  CASS . 699 

RINGS  OF  Z1LFIN,  DISC . 5.500 

...Y  MUCHOS  MAS  _ 


FREEZE  MACHINE  UTILITY 
DISKV3.0 

Es  la  última  versión  del  disco  que  complementa 
el  uso  del  FREEZE  MACHINE.  Incluye  unas  30 
rutinas  de  parámetros  de  carga  Permite  la  total 
transferencia  a  disco  de  los  programas  secuenciales. 
(los  que  cargan  según  progresamos)  y  que  directa¬ 
mente  el  cartucho  no  permite  manejar  Incluye 
muchos  de  los  últimos  títulos  como  Last  Ninja, 
Gunship  y  muchos  clásicos  como  Winier  Garnes  o 
Supercycle  Una  poderosa  utilidad  para  añadir  a  tu 
Freeze  Machine. 

2.500  PTAS. 


SIMULADORES 

REVS,  CASS . 

. .  4.100 

REVS  +,  DISC . 

.  .  4.900 

ELITE,  CASS . 

.  .  4  100 

ELITE,  DISC . 

.  .  4  900 

TWIN  TORNADO,  DISC . 

.  .  3.600 

FLIGHT  SIMULATOR  11.  DISC . 

.  11.900 

JET.  DISC . 

.  11900 

GUNSHIP.  DISC . 

.  .  5.500 

ESCENARIOS  (1-6)  FS2.  DISC . 

DESTROYER.  DISC . 

.  26  000 

.  .  3.600 

UP  PERISCOPE,  DISC . 

0 

SUB  BATTLE,  DISC . 

0 

GATO.  DISC . 

0 

PEGASUS,  DISC . 

0 

SCENARY,  DISC  7  DISC . 

..  6.500 

SCENARY,  DISC  DISC . 

.  .  6.500 

JAPAN  SCENERY,  DISC . 

..  6.500 

S  FRANCISCO  SCENARY.  DISC 

..  6.500 

TRACK  A  FIELD,  DISC . 

. .  3.900 

PAUL  WHITEHEAD  CHESS,  DISC 
DISCOS  DE  ESCENARIOS 
...Y  MUCHOS  MAS 

10.400 

Gran 

Lucha  de 
Precios 
en  Disco 
Virgen 


SEGUIMOS 

tirando  los  precios: 


Discos  compuland 
5.25  c/canón  ....  1.550 
5.25  c/ plástico  ...  1.750 
3.5  c/ plástico  ....  3.990 
con  cada  100  uds.  un  archi¬ 
vador  metálico  gratuito.  Pe¬ 
didos  superiores  consultar 
precio.  Garantizados  libres 
de  error  con  billete  de  vuelta. 


FREEZE  MACHINE 


•  FREEZE 

Imparable  opción  de  Freeze 

•  GRABADOR  RAPIDO 
Graba  en  poco  más  da  1 5  sg. 

•  MULTIPLES  COPIAS 

Hace  tantas  copias  como  necesites  una  vez 
congelado,  si  quieres  en  diferentes  modos 

•  ULTRA  COMPACTO 

Es  el  más  eficiente  compnctador  permi¬ 
tiéndose  hasta  5-6  juegos  por  disco 

•  GAME  KILLER 

Incorpora  una  efectiva  rutina  para  anular 
la  detección  de  colisiones. 

•  INDEPENDIENTE 
Aunque  puede  crear  ficheros 
Lacer  que  cargan  en  10  if. 

•  FACIL  DE  USAR 

Siempre  con  sus  rasgos  característicos, 
aunque  ahora  acrecentados. 

•  TURBO  DE  CASSETTE 

Leer  o  salvar  en  cassette  más  rápidamente. 


•  MULTIPLE  CARGA 
Directamente  maneja  muchos  programas 
de  este  tipo.  Con  el  disco  de  parametros 
muchos  más. 

•  FORMATEADOR  RAPIDO 
Formatea  los  discos  en  12  sg. 
•COPIADOR  DE  FICHEROS 
Eligiendo  fast  copier  maneja  ficheros  de 
248  bloques  de  longitud,  siendo  su  manejo 
muy  sencillo. 

•  DOS  FAST  LOAD 

Un  turbo  de  disco  normal  de  5-7  veces  y 
el  asombroso  LACER  que  una  vez  insta¬ 
lado  acelera  20+  la  carga. 

•  SELECTILOAD 

Mueve  el  cursor  al  programa  que  quieras 
y  presiona  una  tecla  de  función 

•  RESET 

Permite  introducir  POKES  y  utilizando  el 
FREEZER  para  obtener  copias  del  pro¬ 
grama  con  vidas  infinitas,  etc... 

9.900  PTAS. 


3.5  A  PARTIR  DE  300 
5.25  A  PARTIR  DE  125 


OFERTA  REGALO  CON  EQUIPO 
10%  DESCUENTO 
REGALO  DEL  20° o  EN  SOFT 


Auto  Duel,  Amiga . 

Cruncher  Factory,  Amiga . 

Gauntlet,  Amiga . 

Gold  Runner,  Amiga . 

Guild  of  Thieves,  Amiga . 

Hollywood  Hijinx,  Amiga . 

Hollywood  Poker,  Amiga . 

Karate.  Amiga . 

K. arate  Kid  Pan  II,  Amiga . 

Karate  King,  Amiga . 

Kings  Quest  111,  Amiga . 

Knighl  Ore.  Amiga . 

Mean  18,  Amiga . 

Hollywood  Poker,  Amiga . 

Barbarían,  Amiga . 

Arena/ Bratticus,  Amiga . 

Space  Battle,  Amiga . 

Phalanx,  Amiga . 

Defender  of  the  crow.  Amiga . 

Demolition,  Amiga . 

Sira.  Def.  lnitiative,  Amiga . 

Mouse  Trap,  Amiga . 

Pac  Boy,  Amiga . 

Rocket  Attack,  Amiga . 

Shooting  Star,  Amiga . 

Space  Fieht.  Amiga . 

Simbad  A  Throne  Fal.,  Amiga  .... 

Space  Quest,  Amiga . 

Stationfall.  Amiga . 

Strip  Poker,  Amiga . 

Super  Huey,  Amiga . 

Swooper,  Amiga . 

Uridium,  Amiga . 

Hacker,  Amiga . 

Little  Computer  Peop.,  Amiga . 

Hacker  II.  Amiga . 

Baseball.  Amiga . 

Bnan  Cloughs  Footb.,  Amiga . 


6.500 

3.900 

6.500 

6.500 

6.500 
7.800 

5.500 

5.500 

6.500 

3.900 

6.500 

5.500 
7.800 

5.500 

6.900 

9.500 

3.900 

3.900 

7.900 

3.900 

7.900 

3.900 
3.900 
3.900 
3.900 
3.900 
7.800 

6.500 
7.800 

5.500 
5.500 

5.500 
0 

6.600 

9.500 

9.500 

6.500 
6.500 


Challenger,  Amiga . 

Championship  Golf,  Amiga  .  . 
Figthcr  Command,  Amiga  .  .  . 
Fligth  Simulator  II.  Amiga  .  . 

Football  GFL,  Amiga . 

Gunship,  Amiga . 

HardbaJI.  Amiga . 

Learderboard,  Amiga . 

Learderboard  Tournara.,  Amiga 

Deep  Space.  Amiga . 

Silent  Service,  Amiga . 

Winter  Gantes,  Amiga . 

World  Games,  Amiga . 

Starglaider,  Amiga . 

Kampfgruppe,  Amiga . 

Shanghai.  Amiga . 

Mech  Brigade,  Amiga . 

Mind  F  o  re  ver  Voyagin,  Amiga 
Altérnate  Reality  Ci.,  Amiga  , 

Moon  Mist,  Amiga . 

Deja  VU,  Amiga . 

Tass  Times,  Amiga . 

Faery  Tale,  Amiga . 

Hitch  Hicker  Guide,  Amiga  .  . 
Silicon  Dreams,  Amiga  .... 

Bureaucracy,  Amiga . 

Uninvited,  Amiga . 

Balance  of  Power,  Amiga  .  .  . 

Mindbreaker,  Amiga . 

Ogre,  Amiga . 

Terrorpods,  Amiga . 

Pawn,  Amiga . 

Portal,  Amiga . 

Phantasie,  Amiga . 

Temple  Apshai  Trilo.,  Amiga  . 

Ultima  III,  Amiga . 

Wizards  Crown,  Amiga  .... 

Mindshadow,  Amiga . 

Borrowed  Time,  Amiga  .... 


,  3.900 
,  9  .100 
,  7.800 
11.700 
6.500 
.  9  .100 
,  6.500 
,  6.500 
.  3.900 
,  9.500 
,  6.500 
,  6.500 
,  6.500 
.  6.000 
,  7.800 
,  6  900 
,  7.800 
.  9  .100 
,  6.500 
,  7.900 
.  7.900 
,  6.900 
13.000 
,  7.900 
,  5.500 
,  9.500 
,  7.900 
,  7.900 
,  3.900 
,  6.500 
.  6  500 
,  6.500 
,  9  100 
,  6.500 
,  6  500 
.  6  500 
.  7.800 
,  6  600 
.  6  600 


SUPER  DOLPHIN  DOS 

Es  un  turbo  acelerador  que  trabaja  en 
paralelo  con  el  sistema  operativo  del  64/ 
128  y  la  unidad  de  disco  1541.  Se  puee 
usar  con  la  mayoría  de  las  más  importantes 
casas  de  software  como  Gremlin,  CRL, 
Alligata,  Thalamus.  etc.  y  los  principales 
programadores  de  software  independientes. 
La  velocidad  y  eficiencia  es  increíble, 
carga  202  bqi  en  menos  de  5  sg.  Es  com¬ 
patible  con  la  mayoría  de  software  comer¬ 
cial  y  puede  ser  desconectado  si  es  necesa- 


Algunas  características: 

—  Carga  25  X  normal  (PRG) 

—  Salva  veledd  12  X  normal  (PRG) 

—  Carga  veledd  12  X  normal  (PRG) 

—  Salva  veledd  8  X  normal  (SEQ) 

—  Carga/salva  veledd  3  X  NML  (REL) 

—  Fácil  y  rápidos  comandos  del  DOS 

—  Formatea  40  Tracks  (749)  blques 

—  Monitor  C.M. 

—  Carga  202  bqus  en  5  sg. 

—  Mejora  el  editor  de  pantalla 

-  Salida  impresoras  Centronics 

-  Extra  comandos  del  basic 

-  Compatible  con  standar  DOS 

-  PUede  ser  desconectado 

-  Dolphn  copy  (copiadores,  n 


16.500  PTAS. 


DISC  DISECTOR  V5.0 

Una  de  las  más  populares  y  potentes  herramientas 
de  back-up  Utilities  para  el  64.  El  poderoso  nibblers 
puede  producir  backup  del  más  protegido  software 
Tambián  incluye  muchos  parámetros  de  programas 
de  cargas  raras.  Esta  última  versión  podrá  manejar 
muchos  títulos  de  Hewson,  Ocean,  SSI,  Micropose, 
Ocean.  Broder  bund  y  otros  muchos  productos 
rivales  que  no  pueden. 

Incluye  lo  siguiente: 

-  EVASHAM  3  MINUTES  NIBBLER 

-  EVESHAM  8  MINUTES  NIBBLER 

-  DUAL  DRIVE  NIBBLER  MUCHOS  PARA¬ 
METROS 

-  CONSTRUCTOR  DE  MENUS  ORDENA¬ 
DOR  DE  DISCOS 

-  RESCATADOR  DE  DISCOS  UNSCRATCH 

-  DISCMON  +  DISC  TO  TAPE 

-  DISC  PROTECTETC 

Esas  son  algunas  de  las  posibilidades  que  tiene, 
siendo  como  se  puede  observar  una  pótenle  herra¬ 
mienta  para  trabajar  en  el  disco  aparte  de  un 
potente  backup. 

6.500  PTAS. 


HARDWARE 


Modulador  Televisión . . 

Amiga  2000 . - 

Monitor  1084  . - 

Floppy  3.5  1010 . - 

Floppy  3.5  Interno . - 

Floppy  5,25  2010  . - 

Floppy  interno  5.25 . ~ 

Floppy  interno  20  Mg . - 

Floppy  interno  20  Mg.  MS-DOS  .... 

Floppy  interno  30  Mg . . 

Floppy  externo  20  Mg . - 

Expansión  512  K  501  . 

Expansión  RAM  2  Mg . - 

Expansión  RAM  interna  2  Mg . 

Expansión  RAM  4  Mg . - 

Modem  AMIGA . - 


96.800 
4  990 


222.000 

53.000" 

39.000 

30.000 

Próximamente 

Próximamente 

105.000 

100.000 

Próximamente 

Próximamente 

22.900 

Próximamente 

Próximamente 

Próximamente 

Próximamente 


COMPULAND 


CLUB  AMIGA 

Llamamos  para 
conocer  las  bases. 
Participa  de  des¬ 
cuentos  y  ofertas  es¬ 
peciales. 


SOFTWARE  UTILIDADES 


OMEGA  FILE  . 


AMIGA . 

..  AMIGA . 

AMIGA 


20.800 

50.000 

33.000 


PAGE  SETTER  .  AMIGA 


..  AMIGA  . .  13.000 


SCRIBBLE  . 

. amiga 

TRUE  BASIC . 

.  AMIGA 

WORD  PERFECT  . 

.  AMIGA 

AEGIS  DRAW  . 

.  AMIGA . 

AEGIS  DRAW  PLUS . 

.  AMIGA . 

DRAW  TO  DRAW  PLUS . 

AEGIS  ANIMATOR  IMAGE  . 

AEGIS  IMAGES  . 

.  AMIGA . 

AMIGA . 

.  AMIGA  . 

. 

ART  PACK  1  . 

. amiga 

AEGIS  IMPACT  . 

.....  AMIGA 

AEGIS  (SONIX)  . 

AMIGA 

DE  LUXE  PAINT _ _ 

DE  LUXE  PAINT  II  . 

AMIGA . 

AMIGA 

. 

DF  LUXE  PRINT . 

.  AMIGA  ... 

DF.  LUXE  VIDEO  . 

.  AMIGA . 

DE  LUXE  MUSIC  CONS.  S . 

AC/BASIC  COMPILER  . 

AMIGA 
.  AMIGA 

15.900 

78.000 

35.000 

45.000 

29.000 

25.000 

15.000 

7.500 


AC/FORTRAN .  AMIGA . .  65.000 

CAMBRIDGE  LIPS  .  AMIGA .  35.000 

MCC  PASCAL  .  AMIGA .  25.000 

AMIGA  TOOLKIT  .  AMIGA .  20.000 

MCC  SHELL .  AMIGA  12  000 

MCC  MACRO  ASSEMBLER  .  AMIGA .  15.000 

MUSIC  ESTUDIO .  AMIGA .  9.500 

SCREENMASTER  .  AMIGA  14.900 

F1LEMASTER  .  AMIGA .  14.900 

SUPERBASE  .  AMIGA .  29.900 

DIGIVIEW  .  AMIGA .  45.000 


FUTURESOUND  . 


AMIGA 

AMIGA 

AMIGA 


35.000 

5.900 

22.500 


CABLE  VIDEO  AUDIO  RGB 

SUPERBASE  PERSONAL  . 

ADV  CONSTRUCTION  SET .  AMIGA 

AEGAS  AN1MATOR  .  AMIGA .  25.000 

ANALYSE  .  AMIGA .  35.000 

D.  BUDDY  .  AMIGA .  13.000 

DEVPAC .  AMIGA  15.000 

DISK  LIBRARY  .  AMIGA .  13.000 

GIZMOZ  PRODUCTIVITY  .  AMIGA .  13  000 

HITEK  SOUND  DIGITIZE  .  AMIGA .  13.000 

INSTANT  MUSIC  .  AMIGA .  7.800 

PROMIDI  AMIGA  45.000 


45k 


NOS  ENCONTRARAS  EN  LA 
CALLE  CALVO  ASENSIO  Ne  8. 

TEL.:  (91)  243  16  38 
28015  (ARGUELLES)  MADRID 


SI  DESEA  RECIBIR  INFORMACION  SOBRE  ESTOS  ARTICULOS  O  RECIBIR 
INFORMACION  PERIODICA  DE  NOVEDADES,  PERIFERICOS  Y  CUALQUIER 
ACCESORIO  DE  COMMODORE,  PARTICIPANDO  DE  OFERTAS  Y  DESCUENTOS 
ESPECIALES,  LLAME  O  ENVIE  SUS  DATOS: 

NOMBRE . 

DIRECCION _ _ _ _ _ _ _ _ 

POBLACION _ _ _ _  DISTRITO _ ... _ 

PROVINCIA _ _ _ _  TELEF . 

DESEO  RECIBIR  INFORMACION  . 

ORDENADOR _ _ _ _ _ _ _ _ _ _ 


E3  Cl  PEDIDOS  CONTRA  REEMBOLSO  O  CON  CARGO  A  TARJETA 
fcm  ^  ABIERTO  DE  10  A  2  Y  5  A  8  —  LUNES  A  SABADO 


1 


Las  paradojas  de  los  mini-programas 


Cuando  se  crea  un 
programa ,  se  intenta 
hacerlo  lo  más  reducido 
posible ,  para  que  ocupe 
poca  memoria.  En  este 
artículo  podrás  ver 
algunos  de  los 
programas  más  cortos 
del  mundo,  escritos  en 
una  sola  línea. 


l>or  Alvaro  Inane/ 


Existen  serias  dudas  filosóficas  sobre 
lo  que  significa  la  palabra  “programa”. 
Generalmente  se  entiende  por  pro 
grama  una  secuencia  de  instrucciones  bien 
definidas  que  un  ordenador  es  capaz  de  eje¬ 
cutar,  para  obtener  un  resultado  preciso. 
Partiendo  de  esto,  los  programas  pueden  ser 
tan  grandes  o  tan  pequeños  como  uno 
quiera...  aunque  a  veces  lleguen  a  perder  su 
propio  nombre. 

Por  un  lado,  un  programa  enorme,  que  no 
quepa  en  la  memoria  del  ordenador,  puede 
dividirse  en  partes  (también  llamadas  módu¬ 
los),  dando  lugar  a 


Los  mini-programas  son  sumamente  curio¬ 
sos,  y  tienen  algunas  propiedades  interesan¬ 
tes,  a  la  vez  que  se  prestan  a  divertidas  con¬ 
tradicciones.  Para  que  un  programa  se  pueda 
considerar  “mini”  debe  constar  de  una  sola 
línea  (o  como  mucho  dos).  Cuanto  más  corta 
sea  la  línea  y  menos  variables  se  utilicen, 
mejor.  Dejaremos  el  código  máquina  a  un 
lado  y  sólo  consideraremos  válidos  los  pro¬ 
gramas  que  estén  completamente  en  Basic. 
Entre  las  “propiedades”  de  los  mini-pro¬ 
gramas  están  las  siguientes: 

—  Suele  ser  más  rápido  teclear  un  mini¬ 
programa  que  cargarlo  desde  cinta  o  disco. 
Por  lo  tanto,  ¡el  mejor  sistema  de  almacena¬ 
miento  para  los  mini-programas  es  el  papel! 

También  es  más  rápido  teclearlos  y 
corregirlos  sobre  la  marcha  que  cargar  un 
programa  corrector  (en  nuestro  caso,  el 
PERFECTO).  ¡Puede  decirse  que  el  mejor 
corrector  de  un  miniprograma  es  un  listado 
de  sí  mismo! 

-  Se  da  la  curiosa  circustancia  de  que,  a 
base  de  mini-programas,  se  puede  crear  un 
programa  en  el  que  cada  línea  de  programa 
es  un  programa  en  sí  mismo.  ¡Vaya  lío! 

Un  mini-programa,  si  está  bien  dise¬ 
ñado,  tiene  las  propiedades  de  ser  “incom¬ 
prensible”,  es  decir,  que  no  existe  ningún  otro 
programa  que  haga  lo  mismo  ocupando 
menos  memoria  y  a  la  vez.  “inacelerable”, 
pues  tampoco  hay  ningún  programa  de  su 
mismo  tamaño  que  que  haga  lo  mismo  en 
menos  tiempo. 

-  Las  instrucciones  de  funcionamiento  de 
un  mini-programa  suelen  ser  más  largas  que 
el  mini-progrma  en  sí  mismo,  de  modo  que  la 
mejor  explicación  de  lo  que  hace  un  mini¬ 
programa  está  incluida  en  sí  mismo. 

—  Por  último,  los  mini-programas  se 
pueden  aprender  de  memoria  (por  ejemplo, 
para  alucinar  al  dependiente  de  la  sección  de 
ordenadores  de  los  grandes  almacenes). 

Dejando  estas  cuestiones  “trascendentales”  a 
un  lado  (el  que  quiera,  puede  seguir  comiéndose 
el  coco  para  descubrir  nuevas  “propiedades”  y 
“paradojas”),  puedes  prepararte  para  teclear  los 
mini-programas  de  los  listados. 


MINI-PROGRAMAS 
COMMO DORE  BASIC  V2.0 
(0  1988  BV  ALVARO  IBANEZ 
(0  1988  BY  COMMQDORE  WORLD 


lo  que  se  suele  lia- 

mar  un  “paquete”.  /fl  I  P 

Así,  un  paquete  de  /■ 

gestión  puede  estar  I  Mi  I 
formado  por  un  pro-  I  Wl  I 
grama  de  contabili-  y  J, 

dad,  otro  de  proceso 

de  textos  y  una  hoja  de  cálculo.  Por  otro 
lado,  los  programas  pequeños,  como  los 
pequeños  utilitarios,  de  pocas  líneas  de 
listado,  son  llamados  “rutinas”  o  “programi- 
llas”.  En  ambos  casos,  estos  programas 
siguen  siendo  “programas”  tal  y  como  los 
hemos  definido  antes. 

Pero,  ¿qué  sucede  con  los  programas  muy- 
muy-muy  pequeños?  ¿Debe  ser  considerado 
como  programa  algo  que  tiene  una  sola  línea 
de  listado?  ¿Es  programa  un  programa  que 
no  utiliza  variables?  Es  posible  que  estas  pre¬ 
guntas  queden  sin  contestar,  pero  a  conti¬ 
nuación  vamos  a  ver  ejemplos  que  demues¬ 
tran  que  estos  miniprogramas,  como  a  mí  me 
gusta  llamarlos,  existen.  De  hecho,  hay  mini¬ 
programas  más  útiles,  rápidos  y,  sobre  todo, 
más  divertidos,  que  los  programas  grandes. 


MINI-PROG 


Teclearlos  no  es  tan  fácil 


Al  estar  supercomprimidos,  los  mini¬ 
programas  deben  teclearse,  en  un  99  por 
ciento  de  los  casos,  con  abreviaturas.  Como 
sabrás,  el  Basic  de  Commodore  sólo  admite 
líneas  de  80  caracteres  de  pantalla  como 
máximo.  Por  esto,  si  el  listado  de  una  línea 
sobrepasa  los  80  caracteres,  hay  que  usar 
siempre  las  abreviaturas.  “!”  en  vez  de 
PRINT,  F  SHIFT  O  en  vez  de  FOR,  N 
SHIFT  E  por  NEXT,  etc.  Todas  estas  abre¬ 
viaturas  las  tienes  en  el  manual  del  ordena¬ 
dor,  por  si  no  te  las  sabes  de  memoria.  Asi¬ 
mismo,  ten  en  cuenta  que  en  estos  listados,  las 
palabras  que  encuentres  entre  corchetes  son 
las  claves  que  normalmente  utilizamos  en 
Commodore  World,  como  CRSRD  para 


MINI-PROGRAMAS 


cursor  abajo,  PI  para  el  símbolo  PI,  etc. 
Recuerda  que  si  el  último  carácter  de  la  línea 
acaba  justo  en  el  octagésimo  carácter  (el  cur¬ 
sor  baja  una  línea  más)  debes  subir  y  pulsar 
RETURN  encima  de  la  línea,  o  esta  no  se 
almacenará  en  memoria.  En  un  C-128  en 
modo  128  no  existe  este  problema,  pues  están 
permitidos  hasta  160  caracteres.  Además,  al 
ser  su  Basic  más  avanzado  se  presta  a  mini¬ 
programas  más  fáciles  en  cuanto  a  progra¬ 
mación. 

Los  ocho  listados  más  cortos 
de  la  historia  de  Commodore  World 


LABERINTO 

Este  es  uno  de  los  mini-programas  más 
conocidos  y  a  la  vez  más  espectacular.  Es  una 
versión  reducida  de  un  pequeño  programa 
que  aparece  en  el  manual  del  usuario.  Sim¬ 
plemente  imprime  al  azar,  y  una  detrás  de 
otra,  barras  diagonales  de  izquierda  a  dere¬ 
cha,  formando  una  especie  de  “laberinto” 
aleatorio  sumamente  bello.  Debido  a  lo  par¬ 
ticular  de  su  construcción,  el  laberinto  tiene  la 
curiosa  propiedad  topológica  de  que  todo 
camino  que  entra  en  él,  siempre  sale,  y  nin¬ 
guno  de  ellos  queda  atrapado  en  su  interior 
(aunque  a  veces  aparecen  “lagunas”  internas). 
Lo  más  increíble  es  que  este  programa  no 
utiliza  ni  un  solo  byte  en  variables. 

PROGRAMA»  LABERINTO  LISTADO  1 

1  PR I NTCHR# ( 205+RND ( 1 ) *2 ) | I RUN  .129 

MAYOR/MENOR 

Este  mini-programa  es  una  versión  del 
programa-que-más-veces-ha-sido-programa- 
do-en-la-historia-de-las-computadoras.  El 
ordenador  piensa  un  número  del  1  a  100  y 
hay  que  adivinarlo,  siguiendo  las  pistas  que 
va  dando.  Para  ahorrar  espacio,  el  ordenador 
sólo  contesta  ””  si  su  número  es  mayor  o  “” 
si  es  menor.  Al  final  da  un  “=”  y  el  número 
de  intentos. 

PROGRAMA»  MAYOR /MENOR  LISTADO  2 

1  X  ■  I NT  <  RND ( 1 ) * 1 00 ) ♦ 1 1 FOR 1  ■  1 T099 1  I N  .97 
PUTNiPRINTCHR*(¿»l^(X<N>-(X>N)  ) "CRVS 
ON3 " 1 » IFX< >NTHENNEXT 


BEN  JOHNSON 

Con  este  mini-programa  pueden  probarse, 


entre  otras  cosas,  la  velocidad,  rapidez  y 
coordinación  del  jugador...  y  la  resistencia  del 
teclado.  Consiste  en  pulsar  100  veces  seguidas 
la  tecla  RETURN,  lo  más  rápidamente 
posible.  En  la  pantalla  aparece  el  número  de 
metros  que  se  llevan  recorridos  (de  0  a  100) 
y  a  la  derecha  el  tiempo  de  carrera,  en 
segundos  y  centésimas.  Los  resultados  que  se 
obtienen  normalmente  están  muy  cerca  de  las 
marcas  actuales  en  las  pruebas  de  100  metros 
lisos.  ¡Advertencia!  no  vale  usar  más  de  un 
dedo. 

PROGRAMA*  BEN  JOHNSON  LISTADO  3 

1  O-T 1 1  FORT -0TO 100» SET AS iPRINTT, INT  .9 
( (TI— O) *5/3) /100" CCRSRL3  C2SPC3  CCRBR 
U3 “ i T-T+ (AS<  >CHRS  C 13) >  «  NEXT 


Programa 

Bytes 

PRG+VAR 

Récord 

Máximo 

Laberinto 

22 

4- 

0 

_ 

_ 

Mayor/  Menor 

62 

4- 

21 

— 

1 

Ben  Johnson 

67 

4- 

20 

10.46 

06.95 

Precisión  50 

76 

4- 

36 

92 

100 

Interstellar 

87 

4- 

14 

— 

— 

Master  Typing 

76 

+ 

15 

2.75 

1.95 

Jabalina 

188 

T 

50 

96.94 

104.50 

Quick 

114 

4- 

36 

36 

50 

TABLA  1 


PRECISION  50 

Si  el  mini-programa  anterior  era  de  veloci¬ 
dad,  este  es  de  habilidad.  Al  hacer  RUN  el 
ordenador  comienza  a  contar  rápidamente 
de  0  a  100.  Hay  que  intentar  detenerlo, 
pulsando  la  tecla  RETURN,  lo  más  cerca 
posible  del  número  50.  La  puntuación  de 
cada  intento  varía  según  lo  cerca  que  te 
quedes  del  50:  10  puntos  para  50,  9  para  49 
ó  51,  etc.  Si  fallas  por  10  unidades,  no  hay 
puntos,  y  si  fallas  por  más  de  diez,  la 
cantidad  es  negativa.  Hay  diez  rondas,  y  el 
resultado  final  que  aparece  es  la  suma  de  las 
puntuaciones  en  cada  intento. 

PROGRAMA»  PRECISION  30  LISTADO  4 

1  FGRJ-«T09iF0RX-«T099iPRINTX"CCR8R  .27 
U3 • i T- 1 0-ABS < X-30) 1 BETA** X-X-200*  < A 
*<>"“) « NEXT «PR INT  ,T« O^B+Ti NEXTi PRIN 
TQ 

INTERSTELLAR 

Los  mini-programas  también  pueden  ser 
juegos  de  acción.  En  este  caso,  del  tipo  “pilo¬ 
tas  una  nave  espacial  a  través  de  la  inmensi¬ 
dad  del  vacío  cósmico,  y  debes  intentar  resis¬ 
tir  todo  lo  posible  sin  chocarte  con  las 
estrellas  de  neutrones  que  te  encuentras  en  tu 
camino,  hasta  llegar  a  la  base  enemiga  y  des¬ 
truirla  con  rayos  fotónicos”.  En  fin,  que 
consiste  en  ir  esquivando,  con  las  teclas  del 
cursor  IZQUIERDA  y  DERECHA,  todas 
las  estrellas  que  aparecen  por  la  parte  de 
abajo  de  la  pantalla.  Puedes  pasar  de  un  lado 
a  otro  de  la  pantalla,  “saliéndote”  por  el 
borde  de  la  derecha.  Al  hacer  esto,  bajas  una 
línea.  Si  consigues41egar  hasta  el  final  de  la 
pantalla  (lo  cual  es  harto  difícil)  el  mini¬ 
programa  se  autodestruirá  a  sí  mismo  (échale 
imaginación  y  piensa  que  es  la  “base  ene¬ 
miga”)  y  habrás  logrado  el  objetivo  del 
juego.  Lo  más  importante  en  este  juego  es  no 
perder  la  calma.  ¡Ojo!  Para  arrancar  debes 
borrar  la  pantalla  (SH1FT/CLR)  y  hacer 
RUN  desde  la  línea  inferior. 

PROGRAMA*  INTERSTELLAR  LISTADO  5 

1  PR I NTBPC ( RND  < 1 >  *39 ) " * " *  I FPEEK ( 1 02  .211 
4+X )  “32THENGET A*  i  X-X+ ( A»-" CCRSRL3 "  ) 

- ( A*- - l CRSRR 3 ■ ) i POKE 1 024+ X , 22 1  GOTO 1 

MASTER  TYPING 

Este  mini-programa  sirve  para  chequear  tu 
velocidad  como  mecanógrafo,  a  la  vez  que  es 
un  juego  entretenido.  Al  arrancar  con  RUN, 
debes  comenzar  a  teclear  todo  el  alfabeto,  de 
la  A  a  la  Z.  En  la  parte  izquierda  de  la  panta¬ 
lla  aparece  el  tiempo,  y  en  el  centro  las  letras 
según  las  vas  tecleando.  El  programa  no  deja 
avanzar  hasta  que  no  se  teclea  la  letra 
correcta.  Este  mini-programa  ya  no  es  tan 
“mini”,  pues  tiene  dos  líneas  (ooooooh)  al 
igual  que  los  siguientes. 

PROGRAMA*  MASTER  TYPING  LISTADO  6 

0  TI*-“ 000000“  *238 

1  GETA4»  PR INT INT (TI *5/3) / 100TAB (T+l • 205 


0) A*"CCRSRU3"l T-T-(A*-CHR* (65+T) )  i  I 
FT<26THEN1 

JABALINA 

Continuando  con  la  saga  “mini-Summer 
Games”,  Jabalina  sirve  para  comprobar  tu 
velocidad  y  precisión.  Primero,  debes  hacer 
una  carrera  de  20  metros,  pulsando  RETURN 
(como  en  “Ben  Johnson”).  Instantáneamente, 
el  ordenador  se  pone  a  contar  de  0  a  90,  para 
calcular  el  ángulo  de  lanzamiento.  Pulsando 
SHIFT  puedes  detenerlo,  para  lanzar  la 
imaginaria  jabalina.  El  resultado  depende  de 
la  velocidad  y  el  ángulo  de  lanzamiento 
combinados,  y  también  se  aproxima  bastante 
a  la  realidad. 

PROGRAMA*  JABALINA  LISTADO  7 

0  O-TI *  FORL-1TO20*  GET  A*  i L-L+ ( A*<  >CH  .34 
R*(13) ) *PRINTL"CCRSRU3“lNEXT»F-TI-Q 
* PR I  NT  i  FORT -0TO90 * H-T 

1  PRINTH"  CCRSRU3  **  I  T»T+90*PEEK  (633)  t  .85 
NEXT i Q“CPI 3 / 180*Hi X- (300-F) *SIN (Q) * 

COS  (Q)  l  PRINT  *  PR  INT  INT  (  X*  1 00)  / 100 

QUICK 

Por  último,  un  mini-programa  de  reflejos. 
Según  van  apareciendo  letras  por  pantallas, 
hay  que  responder  rápidamente  pulsando  la 
tecla  correspondiente.  Un  contador,  que  baja 
de  50  a  0  (y  que  se  va  acelerando  según  pro¬ 
gresas),  indica  cuanto  tiempo  resta  para  que 
se  considere  fallido  el  intento.  El  número 
situado  más  a  la  derecha  da  el  número  de 
letras  acertadas. 

Como  habrás  visto,  todos  estos  mini¬ 
programas  son  de  lo  más  variado.  Algunos 
de  ellos  (como  Ben  Johnson  y  Jabalina)  son 
los  típicos  juegos  de  “pique”,  que  te  mantie¬ 
nen  pegado  al  ordenador  intentando  batir  tu 
propio  récord  hasta  que  se  te  cansa  la  mano. 

En  la  tabla  1  pueden  verse  cuántos  bytes 
reales  ocupan  estos  programas:  el  número  de 
bytes  “de  programa”  (lo  que  ocupa  realmente 
la  línea  en  la  memoria  del  ordenador)  y  des¬ 
pués  los  bytes  que  se  utilizan  como  variables. 
También  se  han  incluido  los  récords  que 
hemos  conseguido  en  la  redacción  (son 
auténticos,  de  verdad),  para  que  tengáis 
algún  “alicente”,  así  como  el  máximo 
posible,  que  en  la  mayoría  de  los  casos  es 
inalcanzable  sin  hacer  trampas. 

PROGRAMA*  QUICK  LISTADO  8 

0  FOR I-0TC350iX*-Of»( RND  (1)  *26«»63)  i  .84 
PRINTX#| |FORJ«30— ITO0STEP— 1 
1  PRINT, J-CCR8RL3  CCR8RU3 " «BETA**  A"  .111 
A-(AS-XS) |J-J+(J+1)*(A*-X«) «PRINT, , 

A-  CCRSRU3  “  l  NEXTJ  «  IFJ— 2THEí#JEXTI 


Programación 

Una  curiosa  propiedad  de  los  mini¬ 
programas  es  que  son,  a  la  vez,  los 
programas  mejor  hechos  y  peor  hechos  del 
mundo.  Son  los  mejores  porque,  evidente- 


En  los  números  anteriores  dimos  un  par  de  series  numéricas  “con  truco”  para  que 
intentárais  averiguar  las  fórmulas  que  las  generan.  Hasta  hoy,  no  hemos  recibido 
ni  una  sola  contestación.  ¡Qué  decepción!  En  fin,  aquí  están  las  soluciones: 

(1)  1,2,3,4,5,6,7,8,4194019,10,11... 

(2)  1,4, 1,5, 9, 2, 6,5, 3... 

La  fórmula  (1)  tiene  la  pequeña  “trampa”  de  los  puntos  suspensivos...  nadie  dice 
que  tenga  que  seguir  por  12,13,14...  aunque  sería  lo  lógico.  En  nuestra  fórmula,  la 
secuencia  sigue  con  los  “pequeños  valores”:  692010342,  6228091520...  Es  la  siguiente: 

A  =(/i-l)  (n-2)  (n- 3)  (n- 4)  {n- 5)  {n- 6)  (n- 7)  (w-8)  (n-10)  (n- 1 1)  .4194005/80640  +  n 

Como  puede  apreciarse,  la  primera  parte  se  anula  para  todos  los  valores  de  1  a  1 1 
excepto  el  9  (por  ejemplo,  para  n= 6,  n- 6  es  cero,  y  por  eso  todo  el  resto  del  producto 
también  lo  es).  Al  sumarle  n  a  este  producto,  cualquier  valor  entre  1  y  1 1,  distinto  de 
9,  dará  siempre  n.  Para  n— 9,  al  multiplicar  todos  los  factores  se  obtiene  80640,  que 
multiplicado  a  su  vez  por  4194005/80640  da  4194005,  más  n  (que  es  9),  el  esperado 
4194014.  Si  se  desarrolla  la  fórmula,  se  obtiene  una  ecuación  de  10  grado  con  unos 
coeficientes  enormes. 

En  general,  puede  decirse  que  existen  infinitas  fórmulas  que  generan  cualquier 
secuencia  dada  que  acabe  en  puntos  suspensivos...  por  la  sencilla  razón  de  que  no  está 
determinado  lo  que  hay  después  de  los  puntos  suspensivos. 

La  segunda  fórmula,  que  no  parece  tener  lógica  alguna,  corresponde  a  la  serie  de 
decimales  de  Pi.  Una  vez  que  se  conoce  esto,  es  fácil  hallar  la  fórmula  que  da  el 
enésimo  decimal: 

A=INT(10(tt.  10" INT(?r.  10N '))) 
o,  expresado  en  Basic: 

An=INT(10*(PI*10  t  (N-l) — INT(PI*10  ♦  (N — I)))) 

La  función  INT,  en  ambas  fórmulas,  expresa  la  parte  entera  de  un  número  (además 
de  en  Basic,  se  utiliza  a  veces  en  matemáticas,  aunque  se  expresa  de  otra  manera).  El 
funcionamiento  de  la  fórmula  es  el  siguiente:  Para  n- 4,  por  ejemplo,  ir.  10" 1  vale 
3141.592653,  es  decir,  que  se  corre  la  coma  a  la  derecha  n- 1  posiciones.  Esto  menos 
3141  (el  INT  de  3141.592653)  da  0.592653.  Para  quedarnos  con  el  cinco,  el  decimal 
que  nos  interesa,  se  multiplica  por  10,  con  lo  que  queda  5.92653,  y  se  toma  la  parte 
entera,  el  5.  Esta  fórmula,  por  supuesto,  no  sirve  para  hallar  los  decimales  de  Pi, 
puesto  que  el  propio  número  Pi  va  incluido  en  la  fórmula. 

Bueno,  bueno,  la  próxima  vez  lo  haremos  más  fácil...  De  todos  modos,  si  alguien 
tiene  algún  sistema  mejor,  o  quiere  hacer  algún  comentario,  se  aceptan  cartas  al  res¬ 
pecto.  También  esperamos  vuestras  sugerencias  y  colaboraciones  para  esta  sección,  que 
será  más  interesante  si  participáis  todos  los  lectores.  ■ 


mente,  hay  que  saber  mucho  de  programación 
para  poder  unir  muchas  funciones  en  una 
sola  línea  de  programa,  evitando  todas  las 
posibles  pegas  con  los  FOR...NEXTs 
anidados,  IF...THENs,  GETs,  INPUTs,  etc. 
A  la  vez  son  los  peores  porque,  con  sólo  ver 
el  listado,  hay  que  ser  un  auténtico  lince  para 
saber  lo  que  hacen,  es  decir,  que  no  están  ni 
estructurados,  ni  comentados,  ni  se  pueden 
seguir  fácilmente,  ni  nada  de  nada... 
completamente  asquerosos,  vamos. 

Los  mini-programas  tienen,  como  suele 
decirse,  “más  trucos  que  la  chistera  de  un 
mago”.  En  efecto,  todos  esos  pequeños  tru- 
quillos  que  se  utilizan  en  los  programas  “de 
verdad”  (y  alguno  más)  han  de  ser  reunidos 
en  una  sola  línea.  Estos  son  algunos  de  los 
más  corrientes,  como  los  que  se  han  utilizado 
en  los  de  los  listados  que  hemos  visto: 


—  Algunas  funciones  como  CHR$,  POKE, 
PEEK,  etc.,  “truncan”  los  valores  decimales 
para  conseguir  valores  enteros.  De  este  modo 
se  puede  uno  ahorrar  un  INT.  Por  ejemplo,  en 
el  Laberinto,  el  valor  del  CHR$,  oscila  entre 
205.0000  y  206.9999,  pero  sólo  se  considerarán 
205  o  206,  códigos  ASCII  que  corresponden  a 
los  gráficos  de  las  diagonales. 

—  Hay  un  montón  de  caracteres  innecesa¬ 
rios  en  una  línea  Basic:  por  ejemplo,  los  espa¬ 
cios  entre  palabras  clave,  las  comillas  de  cie¬ 
rre,  los  “;”  en  los  PRINTs  (excepto  al  final), 
etc.  omitiéndolos  pueden  ahorrarse  unos 
cuantos  bytes. 

—  Los  IF...THEN  pueden  ser  computa¬ 
dos  a  veces  con  expresiones  lógicas  como 
A=2+(B=C).  En  este  ejemplo,  B=C  vale  0  si 
B  es  distinto  de  C  y  -1  si  B  es  igual  a  C.  Esto 


se  puede  utilizar  para  dar  valor  a  otras  varia¬ 
bles.  En  el  Mayor/ Menor,  lo  que  hay  dentro 
del  CHR  vale  61-1  si  X  es  menor  N  o  61  +  1 
si  X  es  mayor  que  N,  si  X=N  (último  caso), 
la  expresión  es  61+0+0.  Esto  suele  utilizarse 
también  para  salidas  forzadas  de  los  bucles 
FOR...NEXT:  Por  ejemplo: 

FORl=  1T020:GETA$:1=1+20(  A$*“Q”): 
NEXT  saldrá  con  valor  1+20  cuando  se  pulse 
la  letra  “Q”.  Casi  todos  los  mini-programas 
utilizan  esta  técnica. 

—  Para  conseguir  “sobreimpresión”  de 
números,  basta  con  hacer  PRINT  X;  “CRSR 
ARRIBA”.  La  siguiente  impresión  se  hará 
sobre  el  número  anterior.  Puede  combinarse 
con  valores  entre  comas  (PRINT  A,B,C)  o 
las  instrucciones  TAB  o  SPC,  para  hacer  que 
varios  números  queden  separados. 

-  Los  “cronómetros”  se  pueden  poner  a 
cero  haciendo  T1$=“000000”  al  arrancar  o 
bien  haciendo  Q=TI  y  tomando  después 
como  valor  real  TI-Q  (TI  actual  menos  Q,  el 
TI  al  arrancar).  Para  convertir  TI  o  TI-Q  de 
sesentaavos  de  segundo  a  centésimas,  se 
puede  hacer  PRINT  MID$(STR$(Tl/60) 
,2,4),  que  siempre  da  cuatro  cifras  o  PRINT 
INT(TI  100/60)/ 100.  Esta  última  expresión 
se  puede  simplificar  como  INT  (TI5/ 3) / 1 00 
y  es  la  más  conveniente.  Para  cronometrar 
minutos  conviene  usar  directamente  TI$. 

—  Los  bucles  FOR...NEXT  pueden  susti¬ 
tuir  a  bucles  cerrados  como  I  IF  A=0 
THEN  GOTO  I  en  muchos  casos,  y  ahorran 
hacer  referencia  al  número  de  línea.  Un  bucle 
continuo  puede  hacerse  con  FOR  1=1  TO 
10000000  o,  más  abreviado,  FORI  =1T01E9. 

—  Los  FOR. ..NEXT  de  1  a  100  a  veces 
pueden  cambiarse  por  0  a  99,  ahorrando  1 
byte.  Al  igual  que  se  puede  sustituir 
PRINT“CRSRD”  por  PRINT:PRINT, 
ahorrando  dos  bytes  o  eliminar  el  byte  de 
separación  entre  el  número  de  línea  y  la  pri¬ 
mera  instrucción.  Estas  “raterías”,  unidas, 
ahorran  mucho  espacio,  algo  muy  impor¬ 
tante  en  los  mini-programas. 

—  Jugar  con  las  funciones  ASC,  CHR$, 
STR$,  TAB  y  SPC  es  muy  importante  para 
convertir  teclas  a  códigos  ASCII,  números  a 
cadenas  y  conseguir  impresiones  decentes. 

En  definitiva,  existen  muchos  y  retorcidos 
sistemas  para  ahorrar  bytes,  tanto  a  la  hora 
de  teclear  un  programa  como  al  prepararlo. 

Modificaciones,  y  más... 


Todos  estos  programas  pueden  modifi¬ 
carse  “a  gusto  del  consumidor”,  por  ejemplo 
un  “Ben  Johnson”  que  en  vez  de  100  metros 
se  corra  a  42.175,  para  una  “pequeña  mara 
thon”,  o  una  “jabalina”  con  más  carrerilla,  o 
un  “master  typing”  con  más  letras...  tan  sólo 
hay  que  tener  en  cuenta  que  al  modificar  una 
línea  con  más  de  80  caracteres,  tan  sólo  se 
admiten  los  80  primeros,  por  lo  que  hay  que 
usar  las  abreviaturas  de  nuevo. 

Practicad  un  poco  los  trucos  que  hemos 
comentado,  añadidles  una  pizca  de  imagina¬ 
ción  y  conseguiréis  crear  estas  pequeñas  y 
divertidas  “joyas”  que  apenas  ocupan  espa¬ 
cio.  Todo  el  que  se  anime  a  enviarnos  sus 
programas,  o  sus  récords  personales,  verá  su 
pequeño  trabajo  publicado  en  esta  sección. 
No  creo  que  tengamos  problemas  de  es¬ 
pacio...  ■ 
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PROGRAMAS  DE  DOMINIO  PUBLICO 


COMMODORE 


Más  de  4.000 
utilidades,  gráficos 
HAM,  instrumentos 
digitalizados,  juegos, 
programas  fuente  en 
C,  demostraciones, 
comunicaciones,  etc... 
para  sacarle  más 
rendimiento  a  tu 
Amiga. 

LISTA 

DE  PROGRAMAS 
MICROILLIISIONS 

Distribuidos  en  España 
por  NORSOFT 


NOMBRE  PROGRAMA 

FAERY  TALE  ADVENTURA 

FTA  CLUE  BOOK 

FIRE  POWER 

BLACK  JACK  ACADEMY 

ROMANTIC  ENCOUNTERS 

LAND  OF  LEGENDS 

TURBO 

GALACTIC  INVASION 
DUNGEON  CONSTRUCTION 
EBONSTAR 

TV  SHOOTING  GALLERY 
UNITY 

FAERY  TALE  ADVENTURE  II 

POWER  TAP 

SCUBA 

CAVERNS  OF  DOMM 
DREAM  WEAVER 
CASINO  CRAPS 
DYNAMIC  WORD 
DYNAMIC  CAD  DEMO / 
TUTORIAL 
MUSIC  X 
MICRO  MIDI 
MICRO  SMPTE 
DYNAMIC  CAD  2.3 
PHOTON  VIDEO 
PHOTON  PAINT 
DYNAMIC  PUBLISHER 
DYNAMIC  CAD 
THE  PLANETARIUM 
DISCOVERY  GAME  DISK 
DISCOVERY  EXPANSION 
DISK 

Precio  por  disco: 


Libre  de  gastos  de  envío 


Nombre  número 

Nombre  número 

Nombre 

número 

Nombre  número 

A.R.P. 

369 

DIGI  VIEW  PIC  #02 

167 

ICPUG  #07 

286 

NEW  AGE  #008 

193 

ACQUISITION  DEMO 

233 

DIGI  VIEW  PIC  #03 

168 

ICPUG  #08 

287 

NEW  AGE  #009 

194 

AEGIS  DRAW  DEMO 

235 

DIGI  VIEW  PIC  #04 

169 

ICPUG  #09 

288 

NEW  AGE  #010 

195 

AEGIS  PLAYER  PIC  #01 

147 

DISCOVERY  (DEMO) 

152 

ICPUG  #10 

289 

NEW  AGE  #011 

196 

AEGIS  SCORES  1 

232 

DISKCAT 

068 

ICPUG  #11 

290 

NEW  AGE  #013 

197 

AEGIS  SONIX  SOUNDS  VIII 

230 

DISPLAY 

068 

ICPUG  #12 

291 

NEW  AGE  #014 

198 

AMCAT 

173 

DOCS  #1 

392 

ICPUG  #13 

292 

NEW  AGE  #015 

199 

AMICUS  #01 

029 

DOCS  #2 

393 

ICPUG  #14 

293 

NEW  AGE  #016 

200 

AMICUS  #02 

030 

DOCS  #3 

394 

ICPUG  #16 

294 

NEW  AGE  #017 

201 

AMICUS  #02 

030 

DOCS  #4 

395 

ICPUG  #17 

295. 

NEW  FONTS 

074 

AMICUS  #04 

032 

EA  IFF  85 

361 

INFO  AMIGA  BIX  #01 

172 

NEW  TEK  DEMO  #01  (A) 

387 

AMICUS  #05 

033 

EASYL  IMAGES 

241 

INSANITY  FIGHT  DEMO 

244 

NEW  TEK  DEMO  #01  B 

388 

AMICUS  #06 

034 

ECHO 

068 

INSTANT  MUSIC  DEMO 

236 

OING 

101 

AMICUS  #07 

035 

EL  GATO  +  MORE  PICS 

322 

INSTANT  SCORES  1 

231 

PACMAN 

307 

AMICUS  #08 

036 

ENJA  #01 

061 

JUDAS  PRIEST  (A) 

142 

PAYNE  PIC  DISK 

157 

AMICUS  #09 

037 

ESCHER  #01 

134 

JUDAS  PRIEST  B 

143 

PCLO  VI. 8  (DEMO) 

180 

AMICUS  #10 

038 

ESCHER  #02 

135 

JUGGLER 

133 

PD  DISK  A 

069 

AMICUS  #11 

039 

FUGHT  SIMULAT0R II SECENARY  # 

243 

JUMP  DISK  SAMPLER 

349 

PERFECT  SOUND  DATA  #01 

212 

AMICUS  #12 

040 

FLIP  FLOP 

100 

KALEIDSCOPE 

242 

PERFECT  SOUND  DATA  #02 

213 

AMICUS  #13 

041 

FOCUS  DEMO 

400 

KERMIT 

071 

PERFECT  SOUND  DATA  #03 

214 

AMICUS  #14 

229 

FONT  EDITOR 

101 

LIC A  AMIGA  #02 

258 

PERFECT  SOUND  DATA  #04 

215 

AMICUS  #15 

315 

FRED  FISH  #000 

363 

LIC A  AMIGA  #03 

064 

PERFECT  SOUND  DATA  #05 

216 

AMICUS  #16 

304 

FRED  FISH  #001 

001 

LIC  A  AMIGA  #04 

259 

PERFECT  SOUND  DATA  #06 

217 

AMICUS  #17 

316 

FRED  FISH  #002 

002 

LIC  A  AMIGA  #05 

260 

PERFECT  SOUND  DATA  #07 

238 

AMICUS  #18 

317 

FRED  FISH  #003 

003 

LIC  A  AMIGA  #06 

261 

PERFECT  SOUND  DATA  #08 

239 

AMICUS  #19 

318 

FRED  FISH  #004 

004 

LIC  A  AMIGA  #07 

262 

PHASE  4  LOG  2 

055 

AMICUS  #20 

319 

FRED  FISH  #005 

005 

LIC  A  AMIGA  #08 

263 

PICTURE  DISK  #01 

123 

AMICUS  #21 

320 

FRED  FISH  #006 

006 

LICA  AMIGA  #09 

063 

PICTURE  DISK  #02 

124 

AMICUS  #22 

FRED  FISH  #007 

007 

LIC  A  AMIGA  #10 

264 

PICTURE  DISK  #03 

125 

AMIGA  CLI  SAVE  SETS 

IM 

FRED  FISH  #008 

008 

LICA  AMIGA  #11 

265 

PICTURE  DISK  #04 

126 

AMIGA  DEMO  BY  ECA 

159 

FRED  FISH  #009 

009 

LICA  AMIGA  #13 

311 

PICTURE  DISK  #05 

127 

AMIGA  UVE  (DEMO) 

072 

FRED  FISH  #010 

010 

LICA  AMIGA  #14 

312 

PICTURE  DISK  #06 

128 

AMIGA  SPELL  V2.0 

399 

FRED  FISH  #011 

011 

LICA  AMIGA  #15 

313 

PICTURE  DISK  #07 

129 

AMUSE  #09 

050 

FRED  FISH  #012 

012 

LICA  AMIGA  #16 

308 

PICTURE  DISK  #08 

130 

AMUSE  #10 

W3M 

FRED  FISH  #013 

013 

LICA  AMIGA  #18 

303 

PICTURE  DISK  #09 

310 

AMUSE  #14 

202 

FRED  FISH  #014 

014 

LICA  AMIGA  #19 

309 

PICTURE  DISK  #10 

053 

AMUSE  AMIGAGRAPHICS 

052 

FRED  FISH  #015 

015 

LICA  AMIGA  #23 

348 

PORNO  DOMAIN 

164 

AMUSE  FUN  &  GAMES 

093 

FRED  FISH  #095 

339 

LICA  AMIGA  #24 

389 

PORNO  FILM 

160 

AMUSE  GRAPHIC  HACK 

095 

FRED  FISH  #096 

340 

UFESTREAM  #01 

077 

PORNO  PIC  #01 

203 

AMUSE  HAM  PICS 

098 

FRED  FISH  #097 

341 

LION'S  FONT’S  #01 

314 

PORNO  PIC  #02 

204 

AMUSE  JOY  OF  PRINTING 

097 

FRED  FISH  #098 

342 

MAC  PICS  #01 

132 

PRINTER  DRIVE  CREATOR 

133 

AMUSE  LANGUAGES 

092 

FRED  FISH  #099 

343 

MACVIEW 

132 

PRO  VIDEO  CGI  (DEMO) 

131 

AMUSE  MANDELBROT 

094 

FRED  FISH  #100 

344 

MAKEBOTH 

068 

PROBE  DEMO 

365 

AMUSE  TELCOM 

099 

FRED  FISH  #101 

345 

MARCA  #01 

297 

PROGRAMMER  S  SUITE  BOOK  si 

333 

AMUSE  TOOLBOX 

096 

FRED  FISH  #102 

346 

MARCA  #02 

298 

QUEEN  1 

144 

AMUSE  TOOLBOX  III 

368 

FRED  FISH  #103 

380 

MARCA  #03 

299 

QUEEN  II 

145 

AMUSIC  #01 

208 

FRED  FISH  #104 

381 

MARCA  #04 

300 

QUIWI 

246 

AMUSIC  #02 

209 

FRED  FISH  #105 

382 

MARCA  #05 

301 

RAY  TRACE 

068 

ANIMAT0R  APPRENTICE  DEMO  #1 

352 

FRED  FISH  #106 

383 

MICRO  FONTS 

074 

RAY  TRACER  CREATOR 

245 

ANIMAT0R  APPRENTICE  DEMO  #2 

353 

FRED  FISH  #107 

384 

MILESTONE 

066 

REFLECTOR  2 

080 

ANIMAT0R  APPRENTICE  DEMO  #03 

186 

FRED  FISH  #108 

385 

MISC  UTILITIES 

079 

REVERSI 

080 

ARC  V.11 

101 

FRED  FISH  #109 

386 

MMG  ACTION  VI .0 

059 

RGB  HARZARD  #09  DEMO 

400 

ARC  V.16 

065 

FUTURE  SOUND  DEMO  #01 

161 

MODULA  2  DEMO 

240 

ROM  KERNAL  EXAMPLES 

268 

ARKANOID  DEMO 

367 

FUTURE  SOUND  DEMO  #02 

162 

MONDOAMIGA 

364 

RUN  BACKGROUND 

101 

AURA  GAME  DISK  #04 

062 

FUTURE  SOUND  DEMO  #03 

163 

MONOPLY 

066 

SACC  VOL  1.1 

057 

BATCHER 

068 

GAMES  HINTS  #01 

306 

MULTI  TAKING  DEMO 

158 

SCREENDUMP 

080 

BCS  #01 

042 

GARFIELD 

127 

MUSIC  DISK  #01 

170 

SFVAUG  86/09 

058 

BCS  #02 

043 

GENLOCK  (DEMO) 

150 

MUSIC  DISK  #02 

171 

SHAKESPEAR  DEMO 

367 

BCS  #03 

044 

GERMAN  DEMO  W1 

266 

MUSIC  DISK  #03 

247 

SHOWHAM 

065 

BCS  #04 

081 

GLOBE 

100 

MVP  FORTH  V1.00.03A 

154 

SILVER  DEMO  #1 

390 

BCS  #05 

045 

GOLD  FISH  #01 

354 

NAAUG  MOVIE  SPECIAL 

302 

SILVER  DEMO  #2 

391 

BCS  #06 

046 

GOLD  FISH  #02 

355 

NAGEL  PICS  1-18 

397 

SINBAD  DEMO 

237 

BCS  #07 

082 

GOLD  FISH  #03 

356 

NCAUG  BEST  OF  AMIGA 

210 

STARCHART 

133 

BCS  #08 

083 

GRAPHICS  EDITOR 

101 

NCAUG  PIC  #02 

218 

SUPERBASE  DEMO 

234 

BCS  #09 

047 

GRAPHICS  SAMPLES 

075 

NCAUG  PIC  #03 

219 

TOOLKIT  V3.36 

269 

BCS  #10 

048 

HAM  EDITOR 

068 

NCAUG  PIC  #05 

220 

TOOLS  #01 

205 

BCS  #11 

084 

HAMLOAD 

065 

NCAUG  PIC  #06 

221 

TOOLS  #02 

206 

BCS  #12 

085 

Hl  LOW 

100 

NCAUG  PIC  #07 

222 

TOOLS  #03 

207 

BCS  ART  #01 

086 

ICON  MANIA 

073 

NCAUG  PIC  #08 

223 

TRIAD 

060 

BCS  ART  #02 

087 

ICONMANIA  V2.0 

076 

NCAUG  PIC  #09 

224 

TUNNEL  VISION 

066 

BCS  ART  #03 

088 

ICPUG  #01 

280 

NEW  AGE  #001 

187 

UNDELETE 

080 

BCS  ART  #04 

089 

ICPUG  #02 

281 

NEW  AGE  #002 

188 

WILLIAMS  PIC  DISK  #01 

178 

BCS  PROGRAMMER  #01 

090 

ICPUG  #03 

282 

NEW  AGE  #003 

189 

WILLIAMS  PIC  DISK  #02 

179 

BCS  PROGRAMMER  #02 

091 

ICPUG  #04 

283 

NEW  AGE  #004 

190 

X-RATED  PICS 

165 

BEST  OF  AMICUS  #1 

357 

ICPUG  #05 

284 

NEW  AGE  #005 

191 

YOUNG  FOLK  1 

054 

BEST  OF  AMICUS  #2 

358 

ICPUG  #06 

285 

NEW  AGE  #007 

192 

BEST  OF  AMICUS  #3 
BEST  OF  AMICUS  #4  ' 
BETTER  PD  ART  #01 
BETTER  PD  FONTS  #01 
BETTER  PD  UTILITIES  #01 
BORDELLO  SHOW  #01 
BREAKOUT  3D 
BYTE  BY  BYTE  DEMO 
BYTE  PR0TECT  WARE  PIC  #01 
C  PROGRAMS  #01 
C  PROGRAMS  #02 
C  SOURCE  CODE  #01 
C  SOURCE  CODE  #02 
C-MON 
C-SHELL 

CAAT  VIDEO  DEMO 
CALE  FONTS  (DEMO) 
CALLIGRAPHER  DEMO  #1 
CALLIGRAPHER  DEMO  #2 


359 

360 
175 
174 
305 
225 
068 
362 
146 

119 

120 
121 
122 
245 
245 
056 
156 
379 
350 


CAPTAIN  GALLERY  GRAPHICS  155 
CBM  DISK  #02  067 

CES  DELUX  VIDEO  DEMO  152 

CHANGE  DISK  074 

CHINESE  CHECKERS  396 

CLUE  100 

COMMUNICATOR  V1.33  173 

CONCERT  CRAFT  (DEMO)  228 

CONVERT  DOODLE  065 

CONVERT  KOALA  065 

CONVERT  NEWSROOM  065 

CONVERT  PRINT  SHOP  065 

COSMOROIDS  068 

DBW  RENDER  296 

DBW  RENDER  V2.0  296 

DELUX  TITLE  CONST.  SET  246 

DELUX  VIDEO  CST  SET  DEMO  #01  148 

DELUX  VIDEO  CST  SET  DEMO  #02  149 

DESCENDER  398 

DIGI  MUSIC  #01  226 

DIGI  MUSIC  #02  227 

DIGI  VIEW  PIC  #01  166 
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SI  DESEAS  MAS  INFORMACION,  ¡¡LLAMANOS!! 
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General  Franco,  41  -  Entlo.  A 
Teléf.:  24  90  46.  ORENSE 
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Commodore  ha 
lanzado 
recientemente 
una  oferta 
especial  de 
software  para 
Amiga.  Incluye 
varios 
programas  de 
gran  calidad  a 
un  precio  muy 
asequible. 
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Este  paquete  especial  incluye  un  poco  de  todo:  programas  de 
aplicación,  música,  juegos  y  demostraciones  de  gráficos  y  sonido. 
Todos  los  manuales  de  instrucciones  han  sido  traducidos  al 
castellano  (algunos  están  en  disco  y  hay  que  imprimirlos  o  verlos 
por  pantalla),  y  los  programas  también 
(excepto  los  juegos),  esto  permitirá  a  un 
amplio  grupo  de  usuarios,  que  no  tienen 
suficientes  conocimientos  de  inglés,  utilizar 
todos  los  programas  al  cien  por  cien. 

El  paquete  se  compone  de  8  discos:  la 
base  de  datos  Superbase  Personal,  de 
Precisión  Software,  la  hoja  de  cálculo 
Logistix,  de  Grafox,  el  programa  musical 
Music  Studio,  de  Activision,  el  conocido 
simulador  de  helicóptero  Super  Huey,  de 
Cosmi  y  cuatro  discos  de  dominio  público 
de  “demostración”:  Juggler  (animación), 

Jukebox  (sonido),  Imágenes  HAM  (grá¬ 
ficos)  y  Juegos  Guegos  en  ABasic). 

Si  hay  alguna  característica  que  sobre¬ 
salga  del  paquete  es  su  precio:  30.000 
ptas.  (IVA  incluido)  frente  a  las  87.000 
ptas.  en  que  están  valorados  los  programas 
“sueltos”.  Por  poner  un  ejemplo,  Logistix 
vale  por  sí  solo  44.000  ptas.,  y  la  Super¬ 
base  27.000.  Para  “poner  la  guinda”,  hay 
que  decir  que  los  manuales  están  impeca¬ 
blemente  presentados  y  traducidos,  algo 
poco  habitual. 

El  distribuidor  de  este  “paquete  espe¬ 
cial”  es  la  propia  casa  Commodore,  y  los 
interesados  en  conseguirlo  pueden  ponerse 
en  contacto  con  ellos  en  las  siguientes 
direcciones: 

Commodore,  S.A. 
c/  Príncipe  de  Vergara,  109 
28002  Madrid 
Tel.:  (91)  262  16  00 

c/  Valencia,  47-53 
08015  Barcelona 
Tel.:  (93)  325  50  08 


±1 

Precisión 

Software 


_ Superbase  Personal _ 

Los  usuarios  de  Commodore  64  y  128 
conocen  de  sobra  este  programa,  pues  es, 
junto  con  el  procesador  de  textos  Easy 
Script,  uno  de  los  más  “clásicos”  de  la 


TM 


>/ 


l 


programoteca  commodoriana.  No  obstante, 
la  versión  que  Precisión  ha  realizado  para  el 
Amiga  difiere  tanto  de  la  de  Commodore  que 
sólo  se  parecen  en  el  nombre  y  en  algún  otro 
pequeño  detalle  más. 

Superbase  se  comporta  como  una  ventana 
(puede  correr  simultáneamente  con  otros 
programas)  y  se  controla  totalmente  con  el 
ratón.  Los  comandos  “típicos”  como  abrir  o 
cerrar  un  fichero,  buscar  una  ficha,  indexar, 
imprimir,  introducir  datos,  definir  el  formato 
de  los  campos,  etc.,  están  disponibles  en  un 
pull-down  menú  al  que  se  accede  con  sólo 
pulsar  el  botón  derecho  del  ratón,  como 
sucede  en  casi  todos  los  programas  de  Amiga. 
Además  de  esto  hay  una  línea  de  mensajes  en 
la  que  aparecen  las  indicaciones  que  Super¬ 
base  da  al  usuario  para  realizar  su  trabajo: 
“abra  un  fichero”,  “no  puede  dividir  por 
cero”,  etc. 

Tal  vez  la  característica  más  destacable 
sean  los  “mandos”  que  se  utilizan  para 
desplazarse  entre  los  registros  de  un  fichero. 
Son  una  serie  de  iconos  con  simbolitos  como 
los  de  cualquier  vídeo  o  cassette:  adelante, 
atrás,  avance  rápido,  retroceso  rápido,  stop, 
filtro,  ir  al  principio,  ir  al  final,  buscar...  Son 
increíblemente  más  cómodos  que  usar  el 
teclado  para  introducir  los  comandos. 

Superbase  permite  crear  ficheros  de  cual¬ 
quier  longitud,  definir  los  “cam¬ 
pos”  de  entrada,  y  realizar 
todo  tipo  de  operaciones  con 
los  registros:  copiarlos,  orde¬ 
narlos  según  cualquier  criterio, 
imprimirlos  como  lista  o  como 
etiquetas,  buscar  por  claves 
definidas  (esto  es  muy  intere¬ 
sante),  realizar  operaciones 
entre  campos  numéricos,  mez¬ 
clar  y  re-definir  ficheros  y  sus 
formatos...  un  sinnúmero  de 
operaciones  que  abarcan  todo 
lo  que  puede  hacer  una  base 
de  datos. 

La  característica  que  hace 
especial  a  la  Superbase  para 
Amiga,  por  la  sencilla  razón 
de  funcionar  sobre  un  Amiga, 
son  sus  gráficos.  Existe  la 
posibilidad  de  crear  un  “fiche¬ 
ro  de  gráficos”  y  de  ver  sus 
registros  (las  pantallas)  en 
otra  ventana  superpuesta  a  la 
de  trabajo.  Estas  pantallas, 
bajo  el  standard  IFF,  se  com¬ 
portan  como  si  fuera  otros 
registros  cualesquiera. 

Logistix 


AMIGA 


Logistix  es  la  versiói 
Amiga  de  una  hoja  de  c 
inicialmente  diseñada 


La  SUPERBASE  PERSO¬ 
NAL  aprovecha  las  posibili¬ 
dades  de  la  multitarea  del 
A  miga  junto  a  sus  gráficos  y 
la  sencillez  de  manejo  de  los 
iconos  para  editar  los  regis¬ 
tros. 


Imagen  digitalizada  con  DIGI-  VIE  W,  utilizando  la  técnica  Hold-A  nd-Modify  que  permite 
visualizar  4.096  colores  a  la  vez.  El  disco  de  demostración  HAM  GRAPHICS  incluye  muchas 
pantallas  de  este  tipo. 


PCs  compatibles.  Para  los  iniciados  que  no 
sepan  lo  que  es,  una  hoja  de  cálculo  es  un 
programa  que  permite  disponer  de  una 
“rejilla”  (lo  que  se  llama  hoja  de  trabajo) 
compuesta  de  celdillas  que  están  numeradas 
con  operaciones  matemáticas.  En  las  celdi¬ 
llas  pueden  introducirse  valores  numéricos, 
textos  o  expresiones  que  relacionen  unas  con 
otras,  para  de  este  modo  obtener  el  resultado 
de  cálculos  complejos. 

Las  funciones  van  desde  las  sencillas 
funciones  matemáticas  (suma,  producto, 
seno,  logaritmo...)  hasta  funciones  estadísticas, 
pasando  por  funciones  de  base  de  datos, 
lógicas,  de  tiempo  (para  planificación  de 
tareas)  y  algunas  más. 

Logistix  permite  realizar  todo  tipo  de 
operaciones  con  las  celdillas  de  la  hoja: 
mover  y  copiar  zonas,  insertar,  saltar,  rellenar 
con  valores  fijos  y  otros  comandos  de  edi¬ 
ción. 

Mención  aparte  merecen  los  apartados  de 
gráficos,  hoja  de  tiempos  y  base  de  datos. 
Con  unos  cuantos  sencillos  comandos  se 
pueden  convertir  los  datos  en  un  gráfico  de 
tarta  o  de  otro  tipo.  Algo  parecido  sucede 
con  la  opción  “base  de  datos”.  Se  puede 
definir  una  zona  de  la  hoja  para  que  se 
comporte  como  los  registros  de  una  base  de 
datos,  y  con  ellos  realizar  operaciones  como 
búsqueda,  ordenación,  etc.  Aunque  no  es  tan 
cómodo  como  una  base  de  datos  convencio¬ 
nal,  combinándolo  con  las  posibilidades  de 
Logistix,  el  resultado  es  asombroso. 

El  apartado  “hoja  de  tiempos”  permite 
dejar  que  Logistix  planifique  tareas,  asignán¬ 
doles  prioridades,  para  que  se  realicen  de  la 
manera  óptima.  Un  ejemplo  sencillo  sería 
calcular  la  distribución  de  los  trabajos  de  una 
cadena  de  montaje. 


Tanto  el  programa  como  el  manual,  de 
impecable  presentación,  están  completamente 
traducidos,  y  muy  bien,  por  cierto.  En  el 
disco  hay  unos  cuantos  ficheros  de  ejemplo 
además  de  los  que  aparecen  en  el  manual. 
Por  lo  demás,  Logistix  es  una  hoja  de  cálculo 
de  las  más  potentes,  a  la  altura  de  las  dispo¬ 
nibles  para  cualquier  PC. 

Super  Huey 


Dentro  de  la  “oferta  especial”  se  incluye 
este  disco,  con  uno  de  los  simuladores  de 
vuelo  mejor  conocidos  también  por  los 
usuarios  de  Commodore.  Super  Huey  es  el 
nombre  de  un  helicóptero  equipado  con  los 
últimos  avances  tecnológicos.  Entre  las 
diferentes  opciones  del  juego  están  las  misio¬ 
nes  de  aprendizaje,  exploración,  rescate  y 
combate. 

El  helicóptero  se  maneja  con  el  ratón  o  con 
el  joystick,  pero  en  cualquier  caso  hay  que 
hacer  uso  también  del  teclado,  para  disparar 
las  armas,  manejar  el  motor,  el  rotor,  y  los 
demás  instrumentos  de  navegación.  El  manual 
de  este  juego  también  está  traducido,  y 
gracias  a  esto  es  fácil  aprender  todas  las 
funciones. 

El  aspecto  gráfico  del  juego  deja  algo  que 
desear,  teniendo  en  cuenta  que  estamos 
hablando  de  un  Amiga.  La  carlinga  del 
helicóptero  está  muy  bien,  pero  los  gráficos 
del  escenario  y  de  los  objetos  son  bastante 
sencillitos,  apenas  sin  color.  Hace  falta 
bastante  tiempo  para  aprenderse  todos  los 
mandos  y  llegar  a  controlar  el  helicóptero, 
pues  la  calidad  de  la  simulación  es  tan  grande 
que  incluye  detalles  como  la  velocidad  del 
rotor,  el  encendido  electrónico  y  cosas  por  el 
estilo.  Es  un  juego  entretenido. 

Commodore  World  /271 


The  Music  Studio 

No  podía  faltar  un  programa  que  diera 
cuenta  de  las  posibilidades  musicales  del 
Amiga,  una  de  sus  características  más  espec¬ 
taculares.  Este  programa,  desarrollado  por 
Activision,  permite  realizar  tareas  de  compo¬ 
sición,  con  la  sencillez  que  supone  trabajar 
con  un  ratón.  Aunque  ya  hay  muchos  pro¬ 
gramas  de  este  tipo  disponibles  para  Amiga 
(Aegis  Sonix,  Deluxe  Music...)  este  no  es 
precisamente  de  los  mejores,  aunque  para 
iniciarse  no  está  nada  mal. 

El  Music  Studio  tiene  dos  modos  básicos 
de  funcionamiento:  la  pantalla  principal  de 
composición  y  la  pantalla  para  “pintar 
música”.  En  la  primera  aparece  un  pentagra¬ 
ma,  sobre  el  que  pueden  colocarse  las  notas 
en  la  notación  convencional.  En  la  segunda, 
las  notas  se  sustituyen  por  rectángulos  de 
colores  con  los  que  el  usuario  puede  “dibujar” 
la  música  a  su  gusto.  El  principal  fallo  del 
Music  Studio  reside  en  no  tener  la  sencilla 
posibilidad  de  convertir  el  teclado  en  un 
“piano”,  como  hacen  todos  los  programas 
musicales.  La  única  forma  de  crear  música  es 
con  el  ratón,  nota  por  nota. 

Para  crear  una  melodía,  hay  que  ir  colo¬ 
cando  nota  por  nota  en  el  pentagrama.  Esto 
se  lleva  a  cabo  “cogiendo”  las  notas  con  el 
ratón  y  colocándolas  sobre  el  pentagrama. 
La  duración  de  las  notas,  así  como  el  tipo  de 
instrumento,  se  pueden  variar  simplemente 
cogiendo  una  nota  distinta  u  otro  instrumento 
de  los  muchos  que  aparecen  en  un  menú  pull- 
down  dentro  de  la  pantalla  principal.  Otras 
opciones  como  insertar  silencios,  avanzar, 
cambiar  de  clave  o  de  compás,  el  tempo  o  el 
volumen  también  pueden  modificarse  desde 
la  pantalla  principal  utilizando  algunos  de 
los  “gadgets”  simbolizados  por  iconos  que 
están  preparados  para  esa  función. 

Otras  opciones  interesantes  son  la  creación 
de  instrumentos  (se  pueden  tener  hasta  15 
distintos  a  la  vez),  los  comandos  de  edición 
(mover  bloques,  insertar,  cambiar  la  duración 
total  de  las  notas,  etc.)  y  la  posibilidad  de 
añadir  “letra”  a  la  canción  (esto  es,  incluir 
texto  sobre  el  pentagrama).  El  Music  Studio 
está  preparado  para  ser  conectado  a  un 
sintetizador  mediante  interface  MIDI,  lo  que 
abre  un  campo  inmenso  de  posibilidades 
musicales.  Dependiendo  del  sintetizador  que 
se  utilice  es  posible  utilizar  hasta  15  voces 
simultáneamente. 

Discos  de  dominio  público 

Los  cuatro  discos  de  dominio  público  (es 
decir,  que  se  pueden  copiar  y  pasar  libremente 
a  los  amigos)  que  se  incluyen  en  el  paquete 
son  los  siguientes: 

Imágenes  HAM:  Este  disco,  que  sólo  sirve 
para  ser  admirado,  contiene  unas  15  pantallas 
de  gráficos  digitalizados  con  Digi-View 
utilizando  la  técnica  HAM,  Hold-And- 
Modify,  que  permite  obtener  4.096  colores 


La  hoja  de  cálculo  LOGISTIX  puede  ser 
utilizada  como  una  ventana  más  dentro  del 
A  miga ,  e  incluye  opciones  para  manejar  hoja 
de  tiempos  (planificación),  hoja  de  cálculo, 
base  de  datos  y  gráficos. 


una  buena 
prueba  de 
todo  lo  que 

Ruede 
acer  un 
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gráneos, 
sonido, 
animación, 
juecjos  •••  sin 
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ordenador 
“serio” 
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simultáneamente  por  pantalla.  Algunas  de 
estas  pantallas  son  las  que  suelen  verse  en  las 
páginas  de  publicidad,  auténticas  maravillas. 
El  único  defecto  del  disco  es  que  no  son 
pantallas  1FF,  el  standard  gráfico  más  usado 
en  el  Amiga,  y  no  pueden  cargarse  desde 
otros  programas. 

Jukebox:  Este  es  un  pequeño  disco  de 
demostración  que  contiene  música  digitalizada 
con  Future  Sound,  uno  de  los  más  populares 
digitalizadores  de  sonido  del  mercado  para 
Amiga.  Las  tres  canciones  son  la  banda 
sonora  de  “Star  Wars”,  “Gloria”  y  “Laura”, 
todas  ellas  auténticas  delicias  para  los  oídos 
(sobre  todo  Star  Wars).  Se  utilizan  unos 
300Ks  en  cada  una  para  unos  45  segundos  de 
audición.  Realmente  hay  que  oirlo  para 
descubrir  que  no  existe  diferencia  entre  lo 
que  un  Amiga  puede  hacer  y  una  cassette 
musical  convencional. 

Juggler:  Este  es  uno  de  los  demos  de 
animación  más  conocidos  en  el  Amiga, 
aunque  no  el  más  espectacular  (el  del  “gato” 
es  mucho  mejor).  Se  trata  de  un  “juglar” 
creado  matemáticamente  a  base  de  esferas  y 
líneas  que  juega  con  tres  bolas  de  cristal.  Está 
realizado  mediante  la  técnica  de  ray-tracing, 
que  consiste  en  seguir  todos  los  rayos  que 
emite  un  punto  de  luz  imaginario  sobre  la 
escena  (definida  matemáticamente)  y  calcular 
sus  reflexiones,  sombras  y  transparencias. 
Cada  fotograma  de  la  secuencia  necesitó  más 
de  una  hora  para  generarse.  El  conjunto, 
animado  a  gran  velocidad,  consigue  efectos 
asombrosos. 

Juegos:  No  puede  decirse  que  los  juegos  de 
este  disco  sean  muy  novedosos,  pero  son 
entretenidos.  Están  todos  en  inglés,  así  como 
sus  instrucciones.  Entre  los  mejores  están 
Othello,  Monopoly  (aunque  es  sólo  para  un 
jugador)  y  Milestone  (juego  de  cartas  que 
aquí  se  conoce  como  “los  1.000  hitos”).  El 
resto  son  “solitarios”  de  cartas  no  demasiado 
buenos.  Están  todos  escritos  en  Abasic,  el 
primer  Basic  que  tuvo  el  Amiga,  pero  pese  a 
ello  son  rápidos  y  el  aspecto  gráfico  es  muy 
bueno. 

Como  todos  los  usuarios  de  Amiga  saben, 
uno  de  sus  principales  atractivos  es  la 
compatibilidad  consigo  mismo.  Esto  quiere 
decir  que,  por  muy  diferentes  que  sean  los 
programas  que  se  utilicen,  y  aunque  sean 
de  distintas  marcas,  los  datos  que  manejan 
(léase  gráficos,  sonido,  texto,  etc.)  pueden 
ser  leídos  por  cualquier  otro.  Esto  se  con¬ 
sigue  gracias  a  la  existencia  de  un  estándar 
para  todos  los  tipos  de  ficheros:  el  IFF 
(interleaved  File  Format). 

Tomemos  como  ejemplo  este  paquete  de 
programas.  Gracias  a  los  IFF  y  a  la  com¬ 
patibilidad  del  Amiga  pueden  pasarse  (por 
poner  algunos  ejemplos)  los  gráficos  de  la 
Superbase  a  programas  de  dibujo  como 
Deluxe  Paint,  las  pantallas  HAM  a  Digi- 
Paint,  las  demostraciones  de  programas  de 
sonido  (Jukebox)  a  Audio  Master  o  Future 
Sound...  y  un  sinfíndeposibilidadesmás.  ■ 
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La  cantidad  de  juegos  para 
Amiga  sigue  creciendo:  con¬ 
versiones,  adaptaciones  de 
máquinas  recreativas,  nuevos 
juegos  que  aprovechan  al  lí¬ 
mite  todas  sus  posibilidades...  Entre 
todos  ellos  se  encuentra  Terrorpods, 
un  interesante  arcade  que  en  el 
fondo  es  algo  más  que  un  mata- 
marcianos. 

Ambientado  en  lejanas  galaxias, 
Terrorpods  es  la  aventura  de  un 
piloto  espacial,  tripulante  de  un 
DSV  (Defense  Strategy  Vehicle) 
que  trata  por  todos  los  medios  de 
defender  las  Colonias  Mineras,  los 
centros  de  distribución  de  energía  y 
otras  bases  terrestres  de  las  garras 
de  los  Terrorpods,  robots  asesinos 
enviados  por  el  Imperio  para  hacerse 
con  el  poder  de  la  galaxia. 

Como  habrás  adivinado,  el  juego 
consiste  en  matar  Terrorpods  a 
diestro  y  siniestro,  evitando  además 
que  éstos  destruyan  los  edificios  y 
plantaciones  de  la  superficie  del 
planeta.  El  DSV  está  equipado  con 
láser,  misiles  rastreadores,  mapas, 
sistemas  de  información  y  un  vehí¬ 
culo  de  superficie.  Todos  estos  ins¬ 
trumentos  se  utilizan  para  localizar 
y  destruir  a  los  Terrorpods.  Son 
naves  con  pinta  de  insecto,  difíciles 


de  destruir  si  no  se  utilizan  las 
armas  apropiadas,  y  que  general¬ 
mente  huyen  al  ser  atacadas. 

Para  conseguir  armas,  fuel  y  mi¬ 
nerales  hay  que  comerciar  con  las 
plantaciones  de  la  superficie.  Para 
ello  se  utiliza  el  ‘‘vehículo  de  super¬ 
ficie”,  un  pequeño  robot  móvil  que 
puede  acercarse  a  los  edificios  y 
construcciones.  Una  vez  establecido 
el  contacto,  se  pueden  hacer  tratos 
y  cambios  de  material  con  los  habi¬ 
tantes  de  la  plantación.  En  este 
aspecto  hay  que  tener  “mentalidad 
de  mercader”,  para  obtener  los  ma¬ 
teriales  a  buen  precio.  Si,  por  ejem¬ 
plo,  te  quedas  sin  láser...,  ¡se  acabó 
la  historia! 

Se  puede  combatir  a  los  extrate¬ 
rrestres  con  láser  o  misiles.  Los 
misiles  son  “inteligentes”  y  tienes 
que  programarlos  antes  de  lanzarlos. 
Esto  se  consigue  apuntando  una 
mirilla-zoom  que  aparece  en  la  pan¬ 
talla  antes  de  cargar  el  misil.  Entre 
los  muchos  objetos  de  los  que  hay 
que  intentar  librarse,  de  una  u  otra 
forma,  están  los  cohetes  lanzados 
por  la  nave  nodriza  de  los  Terror¬ 
pods,  los  vehículos  de  superficie 
enemigos  y  los  Terrorpods  propia¬ 
mente  dichos. 

Se  pueden  enviar  mensajes  de 


radio  a  las  fábricas  y  plantacio¬ 
nes.  Estos  mensajes  tienen  objetivos 
muy  concretos:  hacer  que  explote  al 
contacto  con  un  objeto,  hacerla 
invulnerable  (previamente  hay  que 
comprar  Aluma,  un  poderoso  metal), 
o  recargar  sus  fuentes  de  mineral, 
energía  o  defensas. 

Como  en  casi  todos  los  juegos  de 
Amiga,  los  gráficos  son  sumamente 
espectaculares.  Desde  la  primera 
presentación  hasta  la  última  naveci¬ 
lla,  los  gráficos  y  la  animación  son 
excelentes.  Psygnosis  ha  hecho  un 
buen  trabajo  en  este  aspecto,  mejo¬ 
rando  lo  que  hizo  en  algunos  de  sus 
otros  juegos,  Barbarian,  por  ejemplo. 
Aún  así,  se  observa  (y  no  sólo  en 
este  juego)  que  la  capacidad  gráfica 
del  Amiga  está  todavía  sin  aprove¬ 
char  al  100  por  100. 

Los  efectos  sonoros  son  realmente 
fantásticos.  Al  estar  Digitalizados, 
ofrecen  unas  resonancias,  unos  ecos 
y  unos  efectos  de  sonido  estéreo 
capaces  de  alucinar  al  más  veterano 
de  los  jugadores.  En  el  aspecto 
recreativo,  Terrorpods  no  destaca 
demasiado,  aunque  hay  muchas 
opciones  seleccionables  (velocidad, 
dificultad,  nacionalidad)  que  permi¬ 
ten  cambiar  el  juego  para  que  no  sea 
siempre  igual.  ■ 
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SECCION  DE 

JUEGOS 


KNIGHTMARE 

Fabricante:  Activision  


149 


Kinghtmare  es  una  adaptación 
de  una  serie  televisiva,  un 
juego  de  aventuras  y  caballe¬ 
ros  medievales,  que  tiene 
muy  poco  de  acción,  algo 
más  de  estrategia  y  bastante  de 
aventura  conversacional.  Su  título 
es  un  curioso  juego  de  palabras  con 
Knight  (caballero)  y  Nightmare 
(pesadilla). 

El  protagonista  es  un  caballero 
que  se  encuentra  atrapado  en  las 
mazmorras  de  un  castillo.  Su 
objetivo  principal  es  moverse  a 
través  de  las  habitaciones,  encontrar 
objetos  y  aprender  conjuros  para 
lograr  escapar. 

El  estilo  de  Kinghtmare,  tanto  los 
gráficos  como  el  funcionamiento, 
recuerda  mucho  al  de  otros  juegos 
de  Activision,  por  ejemplo,  “Labe¬ 
rinto”.  Las  pantallas  están  represen¬ 
tadas  como  las  páginas  de  un  libro, 
y  se  van  pasando  a  medida  que 
avanzas  por  el  castillo.  Los  gráficos 
de  los  personajes  son  grandes,  aun¬ 
que  no  son  demasiado  especta¬ 
culares  (únicamente  la  cornamenta 
del  casco  del  protagonista).  Para 
jugar  se  utilizan  a  la  vez  el  joystick, 
para  mover  al  personaje,  y  el  teclado, 
desde  donde  se  dan  órdenes  como 
“abre  la  puerta”,  “coge  la  espada”  y 
otras  similares.  Gran  parte  de  la 
aventura  hay  que  resolverla  desde  el 
teclado,  sobre  todo  para  resolver 
acertijos,  coger  y  dejar  objetos  y 
otras  acciones  que  no  se  pueden 
realizar  directamente  desde  el  joys¬ 
tick. 

Completar  ¿1  juego  sin  ayudas 
sería  prácticamente  imposible,  por 
lo  que  hay  un  par  de  Oráculos  que 
van  dando  pistas  a  medida  que 
avanza  el  juego.  También  hay  un 
Dungeon  Master,  o  Señor  de  las 
Mazmorras,  que  da  consejos  de  vez 
en  cuando.  Estas  pistas  se  dan  en 
forma  de  acertijos,  algunos  de  los 


cuales  conducen  a  la  solución  del 
problema  y  otros  no  hacen  más  que 
empeorar  la  situación...,  ¡e  incluso 
matarte!  Es  importante  resolverlos 
correctamente  y  distinguir  los  orá¬ 
culos  buenos  de  los  malos. 

En  el  castillo  hay  muchos  objetos, 
como  en  todos  los  juegos  de  este 
tipo:  puertas,  cajas,  piedras,  antor¬ 
chas,  llaves,  libros...  cada  uno  tiene 
una  finalidad  concreta,  aunque  sea 
en  la  otra  punta  del  castillo.  Sólo 
con  la  experiencia  se  puede  averiguar 
para  qué  sirve  cada  cosa. 

Existe  la  posibilidad  de  invocar 
conjuros.  Esto  se  logra  utilizando  la 
palabra  SPELL  y  el  nombre  del 
conjuro,  pero  se  debe  encontrar 
primero  el  conjuro  que  se  va  a  uti¬ 
lizar.  Se  puede  congelar  a  otros 
personajes,  convertirlos  en  sapo, 
materializar  objetos...  Los  conjuros 
son  muy  potentes  y  hay  que  utilizar¬ 
los  sólo  en  los  momentos  precisos, 
pues  hacerlo  de  otro  modo  es  des¬ 
perdiciarlos. 


El  juego  está  completamente 
en  inglés,  aunque  el  manual 
ha  sido  traducido  al  castellano. 
Para  que  los  que  no  sepan 
inglés  puedan  jugar,  en  las 
instrucciones  se  incluye  un 
breve  diccionario  con  todas 
las  palabras  que  se  utilizan  en 
el  juego,  así  como  los  mensajes 
que  aparecen.  No  es  mala  idea, 
pero...,  ¡algunas  de  las  traduc¬ 
ciones  son  realmente  malas! 
Por  poner  un  ejemplo:  en  el 
juego  se  hace  referencia  a  Art- 
hur  Dent  (lo  han  traducido 
por  “el  diente  de  Arturo”), 
nombre  del  protagonista  del 
maravilloso  juego  conversa¬ 
cional  “The  Hitchhiker’s  Guide 
to  the  Galaxy,  donde,  para 
rematar  la  faena,  han  traduci¬ 
do  “Hitchhiker”  por  “secues¬ 
trador”,  cuando  en  realidad 
significa  “autoestopista”.  Aparte  de 
esto,  no  es  demasiado  complicado 
seguir  el  juego  con  este  diccionario 
aunque,  naturalmente,  no  es  lo  mis¬ 
mo. 

Knightmare  es  una  de  estas  aven¬ 
turas  casi  imposibles  de  completar, 
que  pueden  tenerte  pegado  al  orde¬ 
nador  hasta  la  madrugada  y  donde 
lo  más  importante  son  dos  cosas: 
hacer  un  mapa  y  tener  sentido  co¬ 
mún.  El  aspecto  gráfico  y  los  sonidos 
están  muy  bien,  y  la  dificultad  de  los 
puzzles  no  es  demasiado  elevada.  ■ 


NOTA  SOBRE 
MERCADILLO 

Debido  a  la  gran  acumula¬ 
ción  de  material  para  la  sec¬ 
ción  de  mercadillo,  rogamos 
que  no  enviéis  más  anuncios. 
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JUEGOS 


EMPIRE! 

Fabricante:  Firebird 


Siguiendo  con  la  línea  de  la 
"saga  galáctica”  de  Elite,  Fire¬ 
bird  ha  lanzado  hace  poco 
Empire!,  un  programa  muy 
bien  realizado  en  el  aspecto 
gráfico  y  con  un  entretenido  argu¬ 
mento.  Viajes  espaciales,  naves  alie¬ 
nígenas,  aventuras...  todas  estas 
cosas,  combinadas  con  la  acción  de 
los  clásicos  juegos  de  marcianitos 
hacen  de  Empire!  un  juego  muy 
especial. 

Como  en  los  juegos  de  este  tipo, 
el  objetivo  es  comerciar  por  la  gala¬ 
xia  y  llevar  a  cabo  ciertas  misiones 
en  cada  planeta,  para  conseguir 
dinero,  armas,  minerales  y  otros 
objetos.  El  objetivo  es  viajar  a  través 
de  muchos  sistemas  solares,  matando 
marcianos  y  realizando  arriesgadas 
misiones,  hasta  llegar  a  construir  un 
gran  imperio. 

La  pantalla  muestra,  en  represen¬ 
tación  bidimensional,  un  sector 
circular  del  espacio  en  cuyo  centro 
hay  una  sencilla  nave  espacial.  La 
nave  puede  moverse  a  los  lados, 
acelerar  y  disparar.  El  resto  de  la 
pantalla  (las  estrellas)  se  mueven 
con  scroll  fino  a  medida  que  avanza 
la  nave,  dando  sensación  de  veloci¬ 
dad.  Se  puede  disparar  contra  las 
naves  espaciales  de  los  piratas,  aun¬ 
que  hacerlo  mientras  la  nave  se  está 
moviendo  es  bastante  difícil.  También 
se  pueden  recoger  "pods”,  pequeños 
contenedores  en  los  que  puede  haber 
minerales,  gente  u  otras  cosas. 

Entre  los  instrumentos  de  la  nave 
están  los  sistemas  de  navegación, 
indicadores  de  estado  (barreras, 
láser,  temperatura,  fuel,  etc.)  y  ra¬ 
dares  detectores  de  planetas,  pods 
(contenedores)  y  otros  objetos.  Es 
muy  importante  utilizar  una  especie 
de  "baliza  espacial”  disponible  en  el 
mapa  del  sistema  para  orientar  la 
nave  hacia  objetivos  concretos  (pla¬ 
netas,  bases)  usando  el  radar. 

El  escenario  es  una  enorme  galaxia 


llena  de  sistemas  solares  con  plane¬ 
tas,  lunas  y  estaciones  espaciales 
(starbases).  Tras  "aparcar”  en  las 
bases  espaciales  se  puede  negociar 
con  sus  habitantes:  intercambiar 
minerales  o  recibir  "misioines  espa¬ 
ciales”,  como  rescatar  a  una  princesa 
que  ha  sido  secuestrada,  recuperar 
algún  contenedor  robado,  etc.  Estas 
misiones  dan  puntos  extra  y  además 
sirven  para  incluir  a  esos  planetas 
dentro  del  Imperio. 

Comentar  el  resto  de  las  caracte¬ 
rísticas  del  juego  sería  demasiado 
largo  para  hacerlo  aquí:  ios  distintos 
tipos  de  planetas,  sus  habitantes  y 
situación,  los  saltos  hiperespaciales, 
los  "planetas  infectados”,  las  ma¬ 
niobras  de  aterrizaje  y  recogida  de 
pods...  por  fortuna  el  manual  está 
en  castellano  y  es  muy  sencillo  de 
entender.  Con  un  poco  de  práctica 
se  pueden  aprender  muchas  de  las 
tácticas  y  ios  trucos  del  juego. 

Si  algo  destaca  en  Empire!  no  es 
su  originalidad  (se  parece  mucho  a 
Elite,  Starship  Andrómeda  y  otros 
similares),  sino  sus  gráficos:  una 


perfecta  combinación  de  sprites, 
gráficos  vectorizados  y  buena  ani¬ 
mación.  La  velocidad  es  muy  im¬ 
portante,  y  en  este  juego  no  falta  en 
ningún  momento.  Por  otra  parte, 
los  sonidos  son  casi  inexistentes, 
salvo  algún  que  otro  efecto  especial 
al  disparar  o  destruir  naves  enemigas. 
Puede  decirse  que  en  conjunto  es  un 
juego  muy  interesante  y  atracti¬ 
vo.  ■ 


NOTA  SOBRE  EL  ESPECIAL 
100  PROGRAMAS 

El  número  especial  100  Programas, 
aparecido  años  atrás  y  reeditado  en 
respuesta  a  la  gran  demanda  existen¬ 
te,  está  nuevamente  agotado. 

En  esta  ocasión  creemos  poco 
factible  su  reedición.  Por  lo  que 
consideramos  este  número  agotado 
a  todos  los  efectos. 

Agradecemos  al  mismo  tiempo  la 
gran  acogida  que  nuestros  lectores 
han  dispensado  a  este  número  espe¬ 
cial. 
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JUEGOS 


STARFOX 

Fabricante:  Reaktor 


La  nave  espacial  Starfox,  pilo¬ 
tada  por  Hawkins,  el  prota¬ 
gonista  de  la  aventura,  es  la 
encargada  de  restaurar  el  or¬ 
den  en  la  galaxia.  Los  ocho 
planetas  del  sistema  Hyturiano  han 
roto  el  pacto  Rubicon  y  han  entrado 
en  guerra.  Aprovechando  esto,  un 
noveno  planeta  hostil  ha  entrado  en 
la  galaxia  y  se  dedica  a  atacar  y 
destruir  todo  lo  que  encuentra.  El 
objetivo  es  acabar  con  él  y  sus  mal¬ 
vados  habitantes  para  que  la  paz 
vuelva  al  sistema. 

Esto  es,  más  o  menos,  Starfox. 
Una  de  las  últimas  aventuras  galác¬ 
ticas  de  acción,  donde  se  combinan 
la  habilidad  manual  frente  a  una 
láser  y  la  estrategia. 

La  Starfox  está  dotada  de  los  más 
modernos  sistemas  de  armamento, 
búsqueda  y  localización,  movimiento 
y  control.  En  la  pantalla  aparecen 
en  todo  momento  todos  los  controles 
de  la  nave,  a  los  que  se  puede  acceder 
mediante  una  combinación  de  mo¬ 
vimientos  de  joystick  y  parte  del 
teclado.  El  yoystick  es  la  palanca  de 
mandos  de  la  nave  y  se  utiliza  para 
regular  los  giros  y  disparar  sobre  las 
naves  enemigas.  Con  el  teclado  se 
puede  variar  la  velocidad,  conectar 
el  turbo,  cambiar  de  arma,  utilizar 
los  mapas,  localizar  enemigos,  co¬ 
nectar  el  piloto  automático  y  muchas 
cosas  más. 

La  mayoría  de  las  funciones  de  la 
nave  están  controladas  por  compu¬ 
tadora:  es  posible  localizar  automá¬ 
ticamente  a  las  naves  enemigas  (cuan¬ 
do  están  al  alcance)  y  dirigir  la  nave 
con  el  piloto  automático.  La  opción 
de  localización  es  muy  interesante, 
pues  te  evita  tener  que  dar  vueltas 
por  el  espacio  buscando  a  las  peque¬ 
ñas  y  escurridizas  naves  enemigas, 
que  se  presentan  en  convoyes  de  10 
o  más  naves.  Para  destruirlas  hace 
falta  mucha  habilidad,  puntería  y 
saber  controlar  bien  la  nave.  Al  ser 


la  representación  en  pantalla  tridi¬ 
mensional,  pueden  estar  cerca  o 
lejos,  moviéndose  o  atacando.  De¬ 
pendiendo  del  arma  que  utilices 
(hasta  tres  entre  nueve,  que  se  van 
recogiendo  en  los  planetas  que  en¬ 
cuentras)  es  más  fácil  acabar  con  los 
marcianos,  o  al  menos  hacerlo  más 
rápidamente. 

Para  el  control  de  la  navegación 
se  utiliza  el  Holocubo.  El  holocubo 
es  una  especie  de  mapa  tridimensio¬ 
nal  que  sirve  para  controlar  la  orien¬ 
tación  de  la  nave  en  el  espacio. 
Pulsando  una  tecla  aparece  el  holo¬ 
cubo  en  la  pantalla,  que  no  es  sino 
un  sencillo  cubo  tridimensional  que 
representa  un  sector  del  espacio.  En 


su  interior  hay  un  punto  parpadeante 
que  indica  la  posición  de  la  de  la 
Starfox,  así  como  la  de  los  planetas 
descubiertos.  Calculando  (a  ojo, 
claro)  las  coordenadas  XYZ  de  estos 
puntos  es  posible  dirigirse  a  ellos, 
aunque  sea  por  aproximación.  Es 
posible  girar  el  holocubo  para  poder 
examinarlo  desde  cualquier  ángulo. 

La  computadora  de  la  nave  tam¬ 
bién  da  información  sobre  el  tipo  de 
planeta  al  que  te  diriges,  y  datos 
como  el  tiempo  de  la  misión,  las 
características  de  los  planetas  y  el 
objetivo  de  la  misión.  En  cada  siste¬ 
ma  planetario  hay  un  objetivo  dis¬ 
tinto,  por  ejemplo,  destruir  60  naves 
alienígenas  o  ir  a  un  lugar  determi¬ 
nado. 

Los  gráficos  de  Starfox  son,  sim¬ 
plemente,  geniales.  Tanto  el  cuadro 
de  mandos  de  la  nave  como  el  fondo 
estrellado,  las  naves  espaciales,  el 
holocubo...  En  este  aspecto  el  juego 
no  deja  nada  que  desear.  Por  otro 
lado,  los  efectos  sonoros  acompañan 
durante  todo  el  juego,  aunque  no 
son  excesivamente  complicados. ■ 
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Fabricante:  Mastertronic 


De  entre  todos  los  pequeños 
juegos  que  Mastertronic  va 
lanzando  al  mercado,  como 
si  fueran  churros,  algunos 
son  especialmente  sobresa¬ 
lientes,  como  en  este  caso.  Lazer 
Wheel,  del  mismo  autor  que  Trail- 
blazer,  es  uno  de  esos  juegos  pseu- 
doabstractos,  con  gráficos  sencillos, 
muchos  colores,  efectos  sonoros  y, 
sobre  todo,  muy  muy  adictivo. 

Lazer  Wheel  es  básicamente  un 
arcade  mata-cosas-que-aparecen. 
La  pantalla  es  circular,  y  en  el  centro 
aparece  una  pequeña  nave  triangular. 
Cada  pantalla  representa  a  uno  de 
los  ocho  sectores  que  componen  la 
“autopista  hiperespaciar.  Hay  que 
evitar  que  la  autopista  quede  blo¬ 
queada.  Esto  sucede  cuando  en  los 
sectores  explotan  las  bombas  que 
los  malvados  aliengígenas  invasores 
colocan  en  lugares  estratégicos.  Las 
bombas,  así  como  los  demás  objetos 
de  la  autopista,  están  simbolizadas 
por  bloques  de  colores  que  giran  a 
diferentes  velocidades  alrededor  de 
los  sectores.  El  objetivo  del  juego  es 
resistir  durante  un  período  de  tiempo 
determinando  (que  aumenta  a  me¬ 
dida  que  avanzas)  destruyendo  las 
bombas  antes  de  que  exploten.  Si 
consigues  mantener  al  menos  un 
sector  abierto  podrás  pasar  al  si¬ 
guiente  nivel. 

Lo  más  divertido  del  juego  es  que 
hay  que  jugar  sobre  las  ocho  panta¬ 
llas  a  la  vez,  dando  saltos  hiperespa- 
ciales.  A  la  derecha  de  la  pantalla 
aparecen  ocho  indicadores  que  mues¬ 
tran  el  estado  de  cada  pantalla  y  el 
tiempo  que  queda  para  que  las  bom¬ 
bas  (si  las  hay)  exploten,  simbolizado 
mediante  barras  de  colores.  Hay 
que  estar  muy  atento  para  “repartir” 
bien  la  acción  en  los  sectores  que 
más  lo  necesiten.  A  veces  es  necesario 
perder  un  sector  — abandonarlo — 
para  salvar  otor,  o  dedicarse  sólo  a 
uno  si  las  cosas  se  ponen  feas. 
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Por  otro  lado,  hay  bloques  “bue¬ 
nos”.  Los  verdes,  azules,  cianes  y 
azules  claro  disminuyen  el  daño  de 
cualquier  sector  en  un  pequeño 
porcentaje.  Es  importante  acertarlos 
cuando  el  daño  en  un  sector  es 
crítico  (más  del  80  por  ciento).  Los 
bloques  naranja/ marrones  dan  pun¬ 
tos  extras,  y  los  púrpura  se  dividen 
en  azules  y  amarillos,  que  al  ser 
disparados  (cuando  se  vuelven  a 
juntar),  alejan  las  bombas  de  ese 
sector  durante  unos  instantes. 

No  todo  es  tan  fácil,  claro.  Si 
fallas  un  disparo,  esto  es,  cuando  no 
das  a  ningún  bloque  de  colores, 
aparece  un  bloque  gris  estacionario. 
Estos  bloques  son  “barreras  reflec¬ 


tantes”  en  las  que  rebotan  los  dispa¬ 
ros.  Son  muy  peligrosas,  sobre  todo 
si  te  dejas  llevar  por  el  instinto  y 
disparas  dos  veces  seguidas  en  el 
mismo  sitio...  Si  uno  de  estos  dispa¬ 
ros  rebotados  alcanza  a  la  nave, 
explota  y  mueres.  Aunque  en  el 
juego  no  hay  un  número  de  vidas 
fijo,  pues  lo  que  cuenta  es  el  tiempo, 
esto  te  hace  perder  unos  segundos 
preciosos  durante  los  cuales  las 
bombas  vuelven  a  revolotear  por  la 
pantalla  y  siguen  causando  daño. 

El  aspecto  gráfico  del  juego  no 
está  nada  mal,  a  pesar  de  su  simpli¬ 
cidad.  La  animación  de  los  bloques, 
la  nave  y  los  disparos  es  realmente 
buena.  Desgraciadamente,  éste  no 
es  un  juego  para  un  monitor  en 
blanco  y  negro,  pues  no  se  distinguen 
apenas  los  colores  de  los  bloques, 
que  en  el  fondo  son  la  “salsa”  del 
juego.  La  banda  sonora  y  los  efectos 
especiales  (disparos,  explosiones) 
son  magníficos.  Lazer  Wheel  es  un 
juego  sencillo,  entretenido,  intere¬ 
sante  y  con  más  posibilidades  de  las 
que  se  aprecian  a  simple  vista.  ■ 


á>uper  Discos 
Aplicaciones  II 


En  estos  dos  discos  hay  programas  para  los  ordenadores  Commodore  64  y  Commodore 
128.  En  los  discos  van  Incluidas  instrucciones  completas  de  funcionamiento  para  todos  los 

programas.  Puedes  verlas  por  pantalla  o 
sacarlas  por  impresora,  para  formar 
una  “revista”  de  más  de  40  páginas. 


PROGRAMAS  PARA  C-64 


•  SOUMO  MAKER.  Una  auténtica  “fábrica  de 
sonidos”,  donde  puedes  crear  cualquier  sonido 
sintetizado  para  utilizarlo  en  tus  propios  progra¬ 
mas. 

•  EDITOR  DE  DISCO.  Un  programa  con  el  que 
puedes  proteger  tus  discos,  ordenar  los  directorios, 
recuperar  ficheros  borrados  y  muchas  cosas  más. 

•  RINDAS.  Con  este  programa  puedes  imprimir 
fundas  de  disquetes  en  las  que  aparezca  el 
directorio  de  los  discos,  para  tenerlos  perfecta¬ 
mente  ordenados. 

•  GRAFICOS  GIGANTES.  Esta  aplicación  permite 
utilizar  gráficos  con  una  resolución  de  640  X  400 
puntos,  junto  con  un  buen  número  de  nuevos 
comandos  Basic. 

•  TYPE.  Un  nuevo  comando  tipo  MS/DOS  para 
el  Basic  del  C-64.  Con  él  se  pueden  ver  por 
pantalla  fácilmente  todo  tipo  de  ficheros. 

•  SCREEN  SAVER.  Este  utilitario  amplía  las 
posibilidades  de  edición  del  C-64:  ocho  pantallas, 
comandos  de  disco,  borrado  de  líneas...  todo 
esto  y  mucho  más. 

•  W-VENTANAS.  Una  ampliación  del  Basic 
para  utilizar  nuevos  comandos  de  manejo  de 
ventanas  a  toda  velocidad. 

•  REMS  EN  INVERSO.  Esta  rutina  de  código 
máquina  facilita  la  edición  de  los  listados,  pues 
hace  que  las  líneas  REM  aparezcan  en  inverso. 

•  DRUM  MACHINE.  La  batería  electrónica  para 
que  des  golpes  a  los  tambores  y  a  los  platillos 
con  sólo  pulsar  una  tecla. 
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Puedes  hacer  ya  mismo  lu  pedido  enviándonos  este  cupón  a: 
Commodore  World,  c/  Rafael  Calvo,  18  -  4SB.  28010  Madrid. 


PROGRAMAS  PARA  C-l 28 


O  HARDCOPY  128.  Una  rutina  que  realiza 
volcados  de  pantallas  de  alta  resolución  desde 
modo  128. 

•  CONVERSON  40/80.  Con  este  utilitario  se 
pueden  convertir  gráficos  de  alta  resolución 
del  formato  40  columnas  (320  X  200)  al  de  80 
columnas  (640  X  200)  con  gran  facilidad. 

O  REMS  EN  INVERSO.  Esta  rutina  de  código 
máquina  facilita  la  edición  de  los  listados, 
pues  hace  que  las  líneas  REM  aparezcan  en 
inverso. 

...  y  además,  nuestras  PEQUEÑAS  APLICA¬ 
CIONES  para  C-64  y  C-l 28  (modo  128). 

O  AGENDA  TELEFONICA,  para  que  puedas 
guardar  una  lista  completa  de  teléfonos  y 
direcciones. 

•  PRESTO-WRITE  128,  un  mini-procesador 
de  textos,  para  escribir  pequeñas  cartas, 
documentos  o  etiquetas.  (Sólo  C-I28). 

•  EDITOR  DE  ETIQUETAS,  para  crear  rápida¬ 
mente  etiquetas  con  nombres  y  direcciones. 

•  GENERADOR  DE  CALENDARIOS,  para 
estar  siempre  al  día,  con  hojas-calendario 
gigantes  donde  puedes  apuntar  las  citas. 

•  COMPARADOR  DE  PROGRAMAS,  para 
conocer  byte  a  byte  las  diferencias  entre  dos 
programas  Basic. 


BOLETIN  PE  PEDIDO  -  Especial  Aplicaciones 


Nombre  y  Apellidos . . . 

Dirección . . . 

Población .  C.P .  Provincia .  Teléfono . 

Ordenador . 

Forma  de  Pago:  Sólo  cheque  o  giro.  No  se  sirven  pedidos  contrarreembolso.  Gastos  de  envío  incluidos. 

□  Incluyo  cheque  por  1.990  ptas. 

□  Envío  giro  número . por  1.990  ptas. 


Cuando  me  encontré  con  la  situación  de  poder  editar  ficheros  que  no 
fuerande  texto,  me  encontré  con  que  no  contaba  con  ninguna 
herramienta  que  me  lo  permitiese.  Así  que  busqué  la  forma  de 
hacerlo. 

Como  mi  idea  era  la  de  mandar  este  programa  a  m* 

alguna  revista,  esperando  que  fuese  de  utilidad,  y 
viendo  que  no  podría  escribirlo  ni  en  C  ni  en 
Assembler  (teclear  los  I6K  que  ocupa  un  programa 

objeto  corto  en  C  no  invita,  la  verdad),  decidí 
escribirlo  en  Basic,  que  aunque  es  más  lento, 
permitiría  a  cada  usuario  el  modificar  el  programa  , 
a  su  gusto  y  sería,  sobre  todo,  más  ligero  de  teclear. 

Me  enfrenté  con  el  problema  de  cómo  mantener 
en  memoria  una  cantidad  bastante  grande  de 
información,  y  que  fuese  fácil  de  gestionar,  sin 
necesidad  de  emplear  rutinas  en  CM.  Primero  ¡ 
probé  reservando  espacio  dentro  de  la  memoria 
del  BASIC  dimensionando  (DIM)  una  tabla  de 
enteros,  y  luego  ir  colocando  dentro  de  los 
ficheros  por  medio  de  POKE.  A  pesar  de  que  es 
posible,  no  se  lo  recomiendo  a  nadie:  saltan 
GURU’s  como  por  arte  de  magia,  y  tiene  el 
inconveniente  que  para  insertar  un  byte  al 
principio  del  fichero  exigiría  desplazar  el  resto 
del  mismo  con  un  bucle,  y  esa  no  es  una 
solución  uy  eficaz. 

También  pensé,  cómo  no,  en  el  viejo  método 
de  emplear  una  variable  dimensionada  para 
mantener  el  fichero,  pero  esto,  aparte  de  los 
problemas  y  mencionados  en  desplazamientos, 
me  consume  muchísima  más  memoria  de  la 
que  preciso  para  cargar  los  datos  (el  doble). 

El  método  que  empleo  para  mantener  un 
fichero  en  memoria  es  muy  sencillo,  y  que 
permite  manejarlo  además  con  gran  facilidad 
y  mediante  las  funciones  propias  del 
intérprete.  Consiste  en  cargar  el  programa 
como  si  fuese  una  enorme  frase  grabada  con 
PRINT  desde  el  Basic,  empleando  la 
función  INPUTS  para  que  me  lea  el  fichero  Jmf. 

entero  dentro  de  una  variable,  indicándole 
su  longitud  con  la  función  LOF  (),  jB? 

quedando  más  o  menos  así: 

OPEN  “fichero”  FOR  INPUT  AS  1 
var$=INPUT$(LOF(l),l) 

CLOSE  1 

Con  esto  ya  tenemos  el  fichero  cargado.  Ahora  para  leerlo  basta  usar  la 
función  MID$  con  VAL  para  pasarlo  a  hexadecimal,  y  para  borrar  bytes  del 

Por  Fernando  Marcos 


Os  envío  un 
programa  para  el 
Amiga  que  espero 
que  consideréis  de 
interés  para  su 
posible  publicación. 

Es  una  aplicación 
de  las  pocas  que  he 
escrito  que 
realmente  utilizo,  y 
además  con 
bastante 
frecuencia.  Se 
llama  FilEdit,  y  es 
un  editor  de 
Ficheros  no-ASCII, 
esto  es,  de  código 
máquina,  ficheros 
especiales, 
librerías,  etc.,  que 
no  pueden  ser 
vistos  con  el  ED  ni 
con  TYPE, 
permitiéndonos 
además  borrar, 
modificar  o 
insertarle  nuevos 
datos,  bien  en 
forma  hexadecimal 
o  ASCII. 
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mismo  basta  con  emplear  estas  funciones: 
para  borrar,  se  toma  la  cadena,  se  toma  una 
auxiliar  que  contenga  de  donde  se  quiera 
borrar  para  abajo,  y  otro  que  vaya  de  donde 
se  termine  de  borrar  hasta  arriba,  y  se 
concatenan  con  +.  Se  codificaría  así: 

Borrar  8  bytes  a  partir  de  la  posición  123: 

al$=LEFT$(fic$,122) 

’1 22  caracteres  de  la  izquierda. 
a2$=MID$(fic$,123) 

’el  resto  de  la  cadena  por  la  derecha. 
fic$=al$+f$+a2$ 

’F$  incluido  en  la  posición  123... 

Ahora  veremos  cómo  se  emplea  este 
programa  y  cómo  se  utiliza. 

El  manejo  de  este  programa  es  muy 
sencillo.  Para  lanzarlo  se  puede  seguir  dos 
procedimientos: 

—  Desde  el  Workbench:  abre  el  icono  del 
programa  allí  donde  esté. 

—  Desde  el  AmigaDOS:  teclea  AMIGA- 
BASIC  para  cargar  el  Basic,  y  una  vez 
dentro,  teclea:  RUN  “FILEDIT” 

Una  vez  dentro  el  programa  nos  pregunta 
si  queremos  una  visualización  en  50  filas.  Si 
tecleamos  que  no,  obtendremos  una  normal 
de  25  filas.  Ahora  se  nos  pide  el  nombre  de 
un  fichero  a  editar.  La  única  condición 
impuesta  es  que  no  debe  medir  más  de  32K 
(32767  bytes).  Si  no  el  ordenador  se  parará 
con  un  mensaje  de  error. 

Si  no  hay  problemas  y  el  Amiga  puede 
cargar  el  programa,  se  nos  informará  de  su 
longitud,  y  se  nos  indicará  que  podemos 
empezar  a  editar.  De  otra  manera,  el 
ordenador,  o  bien  nos  dice  que  se  trata  de  un 
error  de  disco  (probablemente  no  encontró  el 
fichero),  o  bien  nos  lanzará  al  intérprete  con 
otro  tipo  de  error.  Esto  no  está  cubierto  por 
si  el  usuario  quiere  modificarlo  en  la  rutina 
ErrorHand,  que  es  la  que  se  encarga  de 
gestionar  los  errores. 

Ahora  detallo  los  comandos  disponibles 
desde  aquí: 

— A  direcc:  ensamblar  datos.  Estos  pueden 
estar  en  formato  hexadecimal  o  ASCII.  A 
este  comando  nos  aparece  la  siguiente 
dirección  en  la  cual  se  va  a  escribir  (ahora 
nos  da  la  misma  que  la  que  dimos  tras  “A”), 
a  lo  que  podremos  darle  bytes  en  dos 
formatos:  o  bien  uno  o  bien  otro,  pero  nunca 
mezclamos:  si  queremos  indicarle  bytes 
hexadecimales,  los  teclearemos  directa¬ 
mente.  Ejemplo: 

.A  12C 

— 012C:  A2  B5  23  A9  12 
—0131: 

Para  introducir  textos  ASCII,  hay  que 
indicárselo  abriendo  una  comilla: 

.A  12C 

— 012C:  ’PRUEBA 
—0132: 

Para  terminar  de  introducir  datos  se  teclea 
un  punto  (“.”)  cuando  se  nos  da  una 
dirección: 

.A  12C 

— 012C:  93  OD  OD 
— 012F:  ’PRUEBA 
—0135 

Importante:  si  intentamos  modificar  texto 
después  del  fin  de  este,  se  nos  lo  indicará  con 
una  interrogación  (“?”)  y  se  nos  pedirá  un 
nuevo  comando.  Si  estamos  dentro  del 
fichero  pero  al  ir  modificando  se  nos  acaba, 
las  modificaciones  por  detrás  de  fin  de 
fichero  se  pierden. 


•filedit 

'Editor  de  Ficheros  de  cualquier  tipo. 

’Lonqltud  maxlma:  32767  bytes. 

'  (01968  F.Harcos 

SUB  accept  (char\)  STATIC 
SHARED  te$,max\:te$-"" 

x\-POS(0) :y\-CSRLIN: IF  y\>max\  THEN  PR I NT : y V»y\- 1 

getakey:  LOCATE  y\,x\:PRINT  te$;  :C0L0R  0,2:PRINT  "  :COLOR  2,0:PRINT  "  "; 

a?-""  :  VHILE  a$-""  :a$»UCASE$  ( INKEY$  )  :  VENO 

IF  a$«CHR$ (13)  THEN  GOTO  endacc 

IF  a$-CHR$ ( 8 )  THEN  GOTO  De  1 1 

IF  a$<"  -  OR  a$>"Z"  THEN  getakey 

IF  LEN ( te  $ ) ■ >  char \  THEN  getakey 

te$»te$4a$ :GOTO  getakey 

De  1 1 :  IF  LEN(te$)*0  THEN  GOTO  getakey 

te  $*LEFT$ ( te  8, LEN ( te$ ) -1 ) 

GOTO  getakey 

endacc:  LOCATE  y\,x\:PRlNT  te$;" 

END  SUB 


CLS 

'PALETTE  0, .6, .6, .6: 'PALETTE  1,.6,.6,.6 
'PALETTE  2 , . 6, . 6 , . 6 : 'PALETTE  3, 0,0,0 
col»: 

CLS:max\-23:COLOR  3, 0 :PRINT:PRINT  "50  Filas?  (S/N):  ";:accept  1 
IF  te$<>"S"  AND  te$<>"N"  THEN  col» 

(F  te$»  N"  THEN  VINDOW  2,"FllEdlt  Por  Fernando  Harcos.  Donado  para  dominio  publl 
|>co  1988.", (0,0)- 
£(630, 184), 0: GOTO  Start 


max\>48 

SCREEN  1,640,400,2,4 

VINDOW  2, "FllEdit  por  Fernando  Harcos.  Donado  para  dominio  publico  1988."  (0,0)- 
t>(630, 3841,0,  1  '  ' 


Start : 

CLS : ' PALETTE  0,.6,.6,.6 
PALETTE  1, .5, .5, .5 
•PALETTE  2,  .6, .6, .6: 

•PALETTE  3, 0,0,0 
COLOR  3,0 

ON  ERROR  GOTO  ErrorHand 
PRINT  "Amiga  FllEdit  Ver  1.55" 

PRINT  "Por  F.Harcos" 

PRINT  "  1988  Public  Domaln  Software." 

GetFlle:  COLOR  3,0:PRINT:PRINT  "Nombre  del  Fichero  a  Editar:  ";:accept  32 
nam$»te$ 

OPEN  namS  FOR  INPUT  AS  1 : PR I NT : PR I NT  "Longitud: 

PRINT  LOF (1); "Bytes.": long\-LOF ( 1 ) 

•VHILE  NOT  EOF (1) :flc$*£lc$+INPUT$(l,l) : VEND : CLOSE  1 
f  lc$-INPUT$( long\, 1) :CLOSE  1 


FOR  r-1  TO  2000 : NEXlf 

MENU  5,0, 1, "COMANDOS  DEL  FILEDIT 

MENU  5, 1,1, "A  desde 

MENU  5, 2, 1, "C 

desde  cuanto 
(desde  fin) 
ln) 


5 ,  S , 1 , "M  (desde  fl 
5, 6 , 1 , "P 


Ensambla  Texto" 
Borra  la  Pantalla" 
Borra  Texto" 
Vuelca  ASCII" 
Vuelca  Todo" 
Imprime  Fichero" 
Graba  Fichero" 
salir  del  FllEdit" 
Inserta  Text" 
Muestra  Directorio" 


MENU  5, 3, 1, "D 
MENU  5, 4,1, "I 
MENU 
HENU 

MENU  5, 7, 1, "S 
MENU  5,8,1,"X 

MENU  5,9, 1, "0-desde  ( r*H  4H...) 

MENU  5,10,1,"$ 

MENU  OFF 

VIDTH  7  7  :  CLS : color  0,3:PRINT  "Fichero  cargado:  Puede  Editar, 
readcomm: 

PRINT"."; 

COLOR  2, 0 :accept  40:IF  te$-""  THEN  readcomm 
com$-LEFT$(te$, 1) :op$-MID$(te$,2) 

VHILE  LEFT$ (op$,  1 )-"  ":op$"MID$(op$, 2) : VEND 
op* I NSTR ( op$ , "  " ) : IF  op-0  THEN  op-LEN ( op$ ) ♦ 1 
opl $ "LEFT$ (op$,op-l) :op2$»HID$ (op$, op*l ) 


: COLOR  2,0 


IF  Com$»"S"  THEN  Sav 
IF  com$-"D"  THEN  Del 
IF  com$-"8"  THEN  Insert 
IF  com$-"A"  THEN  modlfy 

IF  com$*"P"  THEN  PRINT  £lc$:GOTO  readcomm 

IF  com$-"$"  THEN  Dlr 

IF  com$«"C"  THEN  CLS:GOTO  readcomm 

IF  com$-"M"  THEN  Hex 

IF  Com$ ■ " I "  THEN  Ascl l 

IF  com$-"X"  THEN 

IF  max\>  40  THEN  VINDOV  CLOSE  2:SCREEN  CLOSE  1  ELSE  VINDOW  CLOSE  2 

¡¡¡ATENCION!!! 


Los  líneas  de  programa  señaladas  con  una  marca  en  el 
margen  izquierdo,  deben  teclearse  como  continuación  de 
la  línea  anterior. 

En  nuestro  listado  aparecen  debajo  por  problemas  de 
espacio.  Pero  en  BASIC  deben  ser  continuación  de  sus 
líneas  de  programa  originales. 
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— C:  Borra  la  pantalla  y  coloca  el  cursor 
en  la  esquina  superior  izquierda. 

— D  desde  cuanto:  borrar  bytes.  Le 
debemos  especificar  la  dirección  inicial  y  el 
número  de  bytes  a  borrar: 

D12C  D 

Borra  los  trece  caracteres  a  partir  de  la 
posición  12C.  Nótese  que  los  dígitos  no 
tienen  que  estar  justificados  con  ceros,  y  que 
podemos  poner  el  primer  parámetro  pegado 
al  comando: 

.D12C  D 

Nuevamente,  si  intentamos  borrar  después 
del  fin  de  fichero,  se  nos  dará  un  error. 

— I  (desde  fin):  Nos  vuelca  el  fichero  en 
ASCII.  Los  parámetros  son  opcionales. 
Desde  indica  la  dirección  inicial  del  volcado, 
y  fin,  la  última.  Si  no  se  especifican,  se  vuelca 
el  fichero  entero,  y  si  se  pone  la  primera,  se 
vuelca  desde  ese  punto  hasta  el  final. 

.1  12C  400 
.1  12C 
.1 

— M  (desde  fin):  Similar  al  anterior,  nos 
vuelca  el  fichero  en  hexa  y  en  ASCII.  Los 
parámetros  son  los  mismos. 

P:  Imprime  el  fichero  con  todos  sus 
códigos,  esto  es,  como  haciendo  un  TYPE 
desde  el  CLI. 

— S:  Graba  el  fichero.  Nos  aparece  un 
prompt  y  se  nos  pide  el  nombre.  Si  le 
contestamos  con  un  ENTER  y  el  campo 
vacío,  se  aborta  la  opción.  Si  se  le  da  un 
nombre  válido,  se  graba  el  fichero. 

Importante:  Cuando  se  graba  un  fichero, 
el  BASIC  crea  su  propio  fichero  “.info”  para 
ese  fichero.  Cuando  es  un  fichero  sin  info  no 
importa,  pero  si  editamos  y  programa  del 
Workbench,  que  lo  tenga,  será  machacado 
por  la  nueva  versión,  quedando  al  WB  como 
un  fichero  de  datos  no  ejecutable.  Por  lo 
tanto,  antes  de  efectuar  una  modificación,  es 
conveniente  copiar  ese  .info  a  lugar  seguro, 
para  luego  poder  ser  restituido. 

— $:  Como  ya  habrán  adivinado  los 
usuarios  de  C-64,  es  el  comando  para 
obtener  directorios  del  disco  en  el  que 
estemos  situados. 

— @  desde:  Este  es  el  comando  que  nos  per¬ 
mite  insertar  bytes  en  cualquier  parte  del 
fichero.  El  parámetro  le  indica  dónde 
empezar,  y  funciona  igual  que  “A”,  por  lo 
que  no  voy  a  repetirlo.  Si  se  intenta  insertar 
un  texto  después  de  fin  de  fichero,  se  nos 
avisará  con  un  error. 

—X:  Salimos  del  FilEdit  al  BASIC.  Si  no 
hemos  grabado  las  modificaciones,  las 
perderemos. 

De  todas  formas,  los  comandos  y  su 
sintaxis  están  puestos  en  un  menú  al  cual 
podemos  acceder  pulsando  el  botón  derecho 
del  ratón  y  apuntando  a  la  opción 
“COMANDOS  DEL  FILEDIT”. 

Bueno,  creo  que  eso  es  todo.  De  todas 
formas,  si  os  decidís  a  publicarlo,  incluid  mi 
dirección  por  si  alguien  tiene  alguna  duda. 

Fernando  Marco  Rodriguez.  Dos  de 
Mayo,  42  5^D.  Móstoles.  Madrid.  ■ 


Programa  de  dominio  público 

Por  deseo  del  autor,  este  programa  se 
publica  por  primera  vez  en  nuestra  revista  y 
se  convierte  desde  este  momento  en 
“Programa  de  Dominio  Público”. 


CLS : 1 PALETTE  0,0,0, .6 : PALETTE  1,1, 1,1 
’PALETTE  2 , 0 , 0, 0 : PALETTE  3,1,. 4,0 
COLOR  1 , 0 : END 
END  IF 

PRINT  "?  Error" :GOTO  readcomm 


Hex:  'Volcado  en  caracteres  ASCII 

ln£-VAL(  "4H"4opl$):IF  ln4<0  THEN  In4-ln4«16“4 

sw-0 

IF  op2$<>""  THEN 

en4*VAL("4H"40p2$) :IF  en4<0  THEN  en4«en4*16“4 
ELSE 
svl 
END  IF 

otherm:  ln$-HEXS( ln4 ) : 1 n$«LEFT$ ( "0000" , 4-LEN ( 1 n$ ) ) ♦ ln$ 

PRINT  1 nS ; "  :  M;  :se$»"" 

FOR  by-0  TO  15 

byte\-ASC(MID${ flc$,ln44l,l ) ♦CHR$(0) ) 
by$-HEXS(byte\) : I F  LEN(by$)«l  THEN  by$-"0"4by$ 

PRINT  by$; "  "; 

IF  ( byte\>31  AND  byte\<127)  THEN  se$-se$4CHR$ (byte\)  ELSE  3e$-se$4"." 
In4-ln4tl 

NEXTíPRINT  "  ";se$ 

IF  sw-0  THEN  IF  lnt>cnt  THEN  PRINT  " >COMPLETE" : GOTO  readcomm 
IF  InOLEN  ( f  lc$ )  THEN  PRINT  ">EOF":GOTO  readcomm 
IF  INKEYS-""  THEN  otherm 
PRINT  "•BREAK": PRINT: GOTO  readcomm 


Ascll : 

In4-VAL( "4H"4opl$):IF  ln4<0  THEN  ln«-ln«+16A4 
sw-0 

IF  op2$<>""  THEN 

en4«VAL("4H"4op2$) :IF  en4<0  THEN  en4«en4+16‘4 
ELSE 


sv-1 
END  IF 

othera:  ln$*HEX$ ( i n  4 ) : ln$-LEFT$ ("0000", 4-LEN ( ln$ ) )  4  ln$ 

PRINT  ln$; " :  ";:se$-"" 

FOR  by-0  TO  63 

IF  1 n4 <LEN ( f lc$ )  THEN  b\-ASC(MID$ ( £ ic$, ln44l, 1 ) )  ELSE  b\-ASC(".") 
IF  (b\>31  AND  b\<127)  THEN  PRINT  CHR$(b\);  ELSE  PRINT 
In4-ln44l 
NEXT: PRI NT •  *  - 


IF  sw-0  THEN  IF  In4>en4  THEN  PRINT  ">COMPLETE" : GOTO 
IF  1 n4>LEN ( f 1 C$ )  THEN  PRINT  ">EOF":GOTO  readcomm 
IF  INKEYS-""  THEN  othera 
PRINT  "• BREAK" : PRI NT: GOTO  readcomm 


readcomm 


Dlr:  'saca  el  Directorio  del  Disco 
FILES  oplS 

PRINT  ">END  OF  DI RECTORY" : PRI NT : GOTO  readcomm 


ErrorHand:  'Controla  los  errores. 

IF  ERR> 51  THEN  PRINT  "Error  en  acceso  a  disco. " :WlNDOW  2:RESUME  GetFlle 
VINDOV  CLOSE  2:SCREEN  CLOSE  1 
ERROR  ERR : VI NDOW  1 
END 


modlfy:  'Modifica  fichero. 

1 n 4 - VAL ("4H"  +  opl$):IF  ln4>LEN ( f lc$ )  THEN  PRINT  "?":GOTO  readcomm 
modlf  :  ln$-LEFT$ ( "0000", 4-LEN (HEX$( ln4 ) ) ) 4HEX$( in4 ) 

PRINT  in$;":  ";:accept  60 
IF  LEFT$ ( te$, 1)-" ' "  THEN  AssAsc 
IF  LEFT$(te$,l)-"."  THEN  readcomm 
b-1 : VHI LE  b<*LEN ( te$ ) 

bl$«"  " : VHI LE  bl$«"  " : bl$-MID$ ( te$,b, 1 ) :b-b4l : VEND 
b2$«"  " : VHI LE  b2$«"  " : b2$-HI D$ ( te$, b, 1 ) : b=b4l ; VEND 
cb-VAL< "4H"4bl$) *  16 ♦ VALÍ "4H"4b2$) 

MID$(flc$, 104  41,1) -CHR$(cb) : ln£- ln£  f 1 

VEND: GOTO  modlf 

AssAsc:  'Ensambla  ASCII. 

ob$-MID$ ( te$ , 2 ) 

MID$(flc$,  ln44l)«ob$: ln£«ln44LEN(ob$) 

GOTO  modlf 


Insert:  'Inserta  bytes  en  el  fichero. 

ln4-VAL("4H"40pl$) :IF  ln4>LEN ( f lc$ )  THEN  PRINT  "?":GOTO  readcomm 
I nst :  ln$«LEFT$( "0000", 4-LEN (HEX$( ln4) ) )4HEX$( ln4) 

PRINT  ln$; "  :  ";:accept  60 
IF  LEFT$ ( te$, 1 )«" ' "  THEN  InsAsc 
IF  LEFT$( te$, 1 ) ■" . "  THEN  readcomm 
b»l:VHILE  b<-LEN ( te$ ) 

bl$«"  ":VHILE  bl$«"  ":bl$=MID$(te$,b,l) :b-b4l:WEND 
b2$-"  ":VHILE  b2$-"  ":b2$=MID$(te$,b,l):b»b4l: VEND 
cb-VAL("4H"4bl$)*164VAL("4H"4b2$) 
f lc$«LEFT$<  f lc$, ln4)4CHR$(cb)4MID$( f lc$, ln4  4l) 

In4«=ln44l :  VEND: GOTO  Inst 
InsAsc:  'Inserta  ASCII. 
ob$=MID$( te$, 2) 

f lc$-LEFT$( f lc$, ln4)4ob$4MID$(f lc$, In64l) 

1  n4 - 1 n4  4LEN ( ob$ ) 

GOTO  Inst 


Del:  'Borra  N  caracteres  del  fichero. 
ln4-VAL( "4H"40pl$ ) : IF  ln4>LEN( f ic$ )  THEN  PRINT  "7" 
by4-VAL( "4H"4op2S ) : IF  1 n4 4by4 >LEN ( f 1 c$ )  THEN  PRINT 
f lc$«LEFTS( f lcS, ln4 ) 4MID$( f lc$, In44lfby4 ) 

GOTO  readcomm: 


GOTO  readcomm 
"?":GOTO  readcomm 


Sav:  'Graba  fichero:  pide  nombre. 

PRINT  "Ñame:  ";:accept  32 
IF  te$-""  THEN  PRINT  "?":GOTO  readcomm 
OPEN  te$  FOR  OUTPUT  AS  1 : PR I NTI 1 , f 1 cS : CLOSE  1 
GOTO  readcomm 
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Plaza  Isabel  la  Católica,  6.  Tel.:  751180.  FAX  751191  -  Palencia. 


MEMORIAS  PARA  TODOS  LOS  AMIGAS 


Tarjeta  estándar  2  Meg. 
Chasis  conector/ fuente 
Chasis  conector/ fuente 


A2000  74.000 

A500  13.000 

A 1000  13.000 


Todas  incluyen  manual  en  caste¬ 
llano  de  instalación  y  su  software  de 
utilidades  y  diagnósticos. 


DIGÍTAUZADORES 

Ptas.  Digiview  V2.0  | 

Permite  digitalizar  des¬ 
de  cualquier  vídeo  PAL 
o  cámara  B/N  o  color. 
Con  software  de  manejo 
de  lo  digitalizado:  35.000 
Ptas.;  Adaptador  A500/ 
A2000  5.000  Ptas. 


DIGÍTAUZADORES 


Permite  digitalizar  des¬ 
de  cualquier  equipo  de  so¬ 
nido  o  desde  el  micró¬ 
fono  (incluido)  con  soft¬ 
ware  para  optimizar  las 
digitalizaciones.  32.000 
Ptas. 


_ UNIDADES  DE  DISCO _ _ 

Unidad  de  disco  externa  Cumana  A500/ 1000/2000  34.500  Ptas. 

Unidad  de  disco  externa  Cumana  A2000  31.200  Ptas. 


_ Y  PROXIMAMENTE...  MUCHAS  NOVEDADES. 

Digitalización  en  tiempo  real  por  58.000  pesetas. 

Disco  10  Meg.  removible. 

Tarjetas  aceleradoras. 

Tabletas  gráficas. 


GENLOCK 


Permite  mezclar  ima¬ 
gen  de  cualquier  vídeo  o 
cámara  con  las  imágenes 
del  ordenador.  Permitien¬ 
do  múltiple  gama  de  efec¬ 
tos.  95.0000  Ptas. 


SOFTWARE 


GRAFICOS-ANIMACION-3D- VIDEO-EFECTOS- UTILIDADES,  ETC 


Page  Flipper 

Permite  cargar  una  serie  de 

Sculpt  3Dvl.01 

Diseñar  objetos  en  3D. 

22.500 

pantallas  IFF  y  ejecutarlas. 

9.500 

Anímate  3D 

Animar  los  objetos  del  Sculp3D 

TV  Text 

Rotulaciones  profesionales. 

24.500 

Silver 

Gráficos  3D  con  animación 

25.500 

TV  Show 

Animar  rotulaciones  de  TV 

Pixmate 

Utilidad  para  adaptar  resolucio¬ 

TEXT 

21.500 

nes  de  distintas  pantallas 

18.500 

Digipaint 

Permite  cargar  las  pantallas 

Interchange 

Permite  intercambiar  objetos  y 

IFF  con  4.096  colores  y 

pantallas  entre  el  Vídeo  Scape 

overscan 

15.500 

3D  y  el  Sculpt  3D 

12.500 

TODA  LA  GAMA  AEGIS  DEVELOPMENT  INC, 


VIDEOSCAPE  3  D  .  25.500 

ANIMATOR  N/IMAGES .  18.500 

AEGIS  SON1X  .  10.500 

AUDIO  MASTER  .  7.500 

VIDEO  TITLER  .  19.500 


DIGA!  .  10.500 

IMPACT  .  11.500 

IMAGES  .  5.500 

PORTSOFCALL  .  6.500 

AEGIS  DRAW  PLUS  .  24.500 


Provideo  CGI  PAL .  35.000 

Fontset  1 .  18.000 

Fontset  2 .  18.000 

Vídeo  Fonts  .  10.500 


VARIOS 

Compilador  AMIGA  Basic 22.500 
BBS  Comunications  _  19.500 


Terrorpods .  4.330 

Barbarían  .  4.330 


The  Works  .  35.500 

Flipside .  11.500 

Publisher  Plus .  18.900 

Softwood  FUe  II  SG  ....  18.900 
Carafonts  .  19.000 


A  TODOS  LOS  PRECIOS  HAY  QUE  AÑADIRLES  EL  12  POR  CIENTO  DE  IVA 


Todos  sabemos  que  el  Amiga  es 
una  de  las  maravillas  tecnoló¬ 
gicas  del  momento  y  aunque 
tiene  sus  cosas,  normalmente 
nos  da  más  satisfacciones  que  fastidios, 
a  pesar  de  algún  Guru  Meditation  que 
otro,  normalmente  no  nos  quejamos 
mucho  y,  a  la  hora  de  la  verdad,  disfru¬ 
tamos  de  él  como  nadie. 

Sin  embargo,  algunos  pequeños  problemas 
pueden  fastidiarnos  la  tarde,  especialmente 
si  son  capaces  de  destrozar  nuestros  precia¬ 
dos  programas  interrumpiendo  el  juego  y 
contaminando  los  discos  que  tengamos  “en 
el  horno”  en  ese  momento. 

Estos  pequeños  problemas  son  los  virus. 
Son  pequeños  programas  localizados  estra¬ 
tégicamente  en  la  memoria  o  en  el  disco 
que,  en  teoría,  son  indetectables,  sólo  dejan 
sentir  sus  efectos  tras  un  período  de  tiempo. 

Para  evitar  este  tipo  de  “feliz  fin  de  juego” 
por  un  lado  tenemos  que  tomar  una  serie  de 
precauciones  para  “no  contraerlos”  y  por 
otro  unas  acciones  inmediatas  para  eliminar¬ 
los.  En  definitiva,  estos  programas  hacen 
honor  a  su  nombre. 

Para  evitar  el  disgusto  de  tener  un  virus  en 
casa,  nuestros  discos  han  de  ir  cuidadosa¬ 
mente  protegidos,  y  digo  cuidadosamente, 
porque  siempre  cabe  la  posibilidad  que 
nuestro  sobrinito  o  el  niño  del  vecino  venga 
a  jugar  y,  estando  nosotros  indispuestos, 
naturalmente,  ante  el  mensaje  del  sistema  de 
“Disc  is  write  protected”,  se  le  ocurra  al  crío 
la  feliz  idea  de  desprotegerlo  contra  escri¬ 
tura,  a  lo  que  sigue  el  terrible  desenlace  de 
ver  cómo  aquel  juego  que  nos  había  costado 
tanto  encontrar  se  desmenuza  bajo  las  fauces 
de  la  unidad  de  disco  hábilmente  guiadas 
por  ese  pequeño  programa  asesino  de  discos. 
Por  tanto,  es  conveniente  tener  siempre  los 
discos  protegidos  contra  escritura,  y  sólo 
desprotegerlos  si  sabemos  por  qué  el 
programa  en  curso  pide  esa 
desprotección. 

Otra  precaución  a  tomar  son  las  copias  de 
seguridad  de  los  programas,  los  virus  son 
como  las  pulgas,  saltan  de  un  disco  a  otro 
como  si  nada,  por  tanto,  disco  copiado  = 
disco  protegido. 

El  tercer  problema  es  la  memoria,  a  los 
virus  se  les  antoja  a  veces  el  residir  en  la 
memoria,  saltan  del  disco  a  la  memoria  y 
desde  ahí  se  reproducen  en  memoria, 
invaden  el  programa,  los  discos,  la  pantalla, 
hasta  la  impresora,  por  tanto,  después  de 
ejecutar  un  juego,  mejor  que  CTRL-Comm- 


Por  Pedro  M.  Prestel 
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Casi  todos  los  usuarios 
de  Amiga  habrán 
entrado  en  contacto, 
de  una  manera  o  de 
otra,  ton  los  ‘Virus 
informáticos”. 
Extraños  mensajes 
que  aparecen  al  hacer 
reset,  discos  que  se 
borren  999  En  este 
artículo  os 
enseñaremos  cómo 
evitarlos  y  la  manera 
de  destruirlos, 
poniendo  como 
ejemplo  uno  de  los 
más  “populares”,  el 
SC A  Virus. 


para  estos  casos  es  usar  el  programa  para 
saber  donde  hay  virus  y  luego  matarlo  nos¬ 
otros  con  el  Workbench;  esto  no  significa 
que  haya  que  coger  el  disco  del  Workbench 
y  atizar  con  él  al  disco  contaminado,  sino 
que  dentro  del  Workbench  hay  (por  el 
momento)  una  utilidad  indirecta  que  nos 
permite  acabar  con  nuestros  invitados  inde¬ 
seables. 

Los  virus  residen  en  la  pista  0  de  nuestro 
disco  contaminado,  algunos  programas 
(como  el  Aegis  Sonix  1.3)  llaman  a  un 
pequeño  programa  residente  en  esta  pista 
para  validar  el  disco,  y  por  tanto,  no 
podemos  tocar  esa  pista  para  nada,  o  sea, 
que  nuestro  virus  ha  de  seguir  ahí  toda  la 
vida. 

Una  vez  catalogados  los  discos  que  ha 
“incubado”  virus,  la  manera  de  matarlos  es 
muy  sencilla. 

a)  Dos  o  más  unidades  de  disco: 

Hacer  un  INSTALL  DRIVE  DFx:  desde 

el  CLI  del  Workbench,  preferiblemente  el 
Workbench  original.  Donde  x  es  la  unidad 
donde  estará  el  disco  contaminado. 

b)  1  unidad  de  disco: 

Aquí  se  nos  plantea  una  pequeña  pega  y 
es  que  el  INSTALL  no  espera  al  cambio  de 
disco,  la  solución  es  la  siguiente: 

Desde  el  CLI  cambiamos  a  RAM:  desde 
allí  abrimos  un  subdirectorio  de  comandos 
(c)  y  copiamos  a  ese  directorio  el  INSTALL, 
desde  el  directorio  c  del  disco  Workbench, 
después  cambiamos  de  disco,  el  del 
Worbench  por  el  contaminado  y 
hacemos  el  INSTALL: 


► 


Amiga  apaguemos  el  ordenador  para  asegu¬ 
ramos  que  luego  en  los  dibujos  del  Graphi- 
craft  no  nos  salen  marcianos  en  la  pantalla. 

Por  tanto,  tres  precauciones: 

1 .  Proteger  el  disco  contra  escritura. 

2.  Cerciorarse  bien  de  por  qué  el  pro¬ 
grama  accede  al  disco  al  escribir. 

3.  Después  de  jugar,  apagar  y  encender  el 
ordenador. 

La  siguiente  cuestión  es  acabar  con  el 
inquilino  de  nuestro  disco  contaminado, 
para  averiguar  si  tenemos  algún  habitante,  lo 
mejor  es  usar  un  programa  que  nos  lo  diga  y 
que  opcionalmente  nos  lo  mata,  aunque  esto 
último  no  es  nada  aconsejable.  De  entre  los 
programas  existentes  por  ahí,  existe  el 
VIRUS  KILLER  y  algún  otro  más,  lo  mejor 


***  TODOS  LOS  PASOS  *** 
cd  RAM: 

Pasamos  al  disco  virtual 
makedir  c 

Crear  directorio  c  (comandos) 

copy  dfO:C/  INSTALL  TO  RAM: 

c/INSTALL 

copiamos  INSTALL 

cd  c 

CAMBIAMOS  POR  EL  DISCO  CON¬ 
TAMINADO 
INSTALL  drive  dfO: 
instalamos  el  disco 

De  esta  manera  podemos  eliminar  el  virus 
del  disco  en  cuestión.  La  única  precaución  a 
tomar  es  con  los  discos  que  llevan  “virus 
necesarios”  tales  como  el  Aegis  Sonix. 

La  necesidad  de  matar  nosotros  al  virus 
viene  dada  por  el  propio  programa  de  detec¬ 
tar  virus,  elimina  uno  pero  pone  otro.  ■ 
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Normalmente  las 
ampliaciones  del 
Basic,  tanto  las 
comerciales  co¬ 
mo  las  prepara¬ 
das  por  progra¬ 
madores  aficionados,  añaden  sus 
nuevos  comandos  a  base  de  I  U- 
KENs,  un  sistema  mucho  mas 
rápido  y  cómodo  que  los  que 
hemos  visto  hasta  ahora  (los  co¬ 
mandos  con  @  y  caracteres  espe¬ 
ciales).  Trabajar  con  tokens  es  un 
poco  más  complicado,  pero  in¬ 
tentaré  dar  una  explicación  inte 
ligible  para  que  cualquiera  que 
hava  entendido  los  sistemas  ante¬ 
riores  pueda  comprender  su  tun- 
cionamiento. 

•Cómo  se  codifican  los  tokens?^ 


no  se  pueden  usar  porque  corres¬ 
ponden  a  los  códigos  ASCII  stan 
dard  (letras,  números,  etc.). 

Para  que  los  tokens  tuncionen 
correctamente  hace  falta  una 
rutina  que  los  codifique  (que 
convierta  la  linea  tecleada  en 
tokens)  y  otra  que  los  decod dique, 
para  que  se  puedan  ver  los  tokens 
como  las  palabras  a  las  que  co¬ 
rresponden  (al  hacer  LIST,  p 
ejemplo).  De  ello  se  encargan  dos 
rutinas  de  la  ROM  del  Basic  que 
se  encuentran  en  $A57C  y  $A7  A 
respectivamente,  y  a  las  que  se 
puede  acceder  a  través  de  los 
vectores  Basic  $0304  y  $0306. 

No  todo  es  tan  fácil... 


Cuando  se  introduce  una  línea, 
va  sea  en  modo  directo  o  como 
línea  de  un  programa,  el  Basic, 
antes  de  ejecutarla,  la  convierte  a 
tokens.  Los  tokens  son  “palabras 
de  un  solo  byte  que  equivalen  a 
las  instrucciones  Basic  £?*',  Por 
ejemplo,  el  token  para  PR1NT  es 
153.  REM  es  143.  etc.  Esto  quiere 
decir  que  cuando  un  programa 
está  en  la  memoria  del  ordenador, 
en  vez  de  las  letras  P-R-l-N-T 
hav  un  solo  byte  que  contiene  el 
valor  153.  El  ordenador,  natural¬ 
mente.  sabe  que  153  corresponde 

a  la  instrucción  PRINT.  gracias  a 

una  tabla  donde  están  almacena¬ 
das  todas  las  palabras-clave.  Uti¬ 
lizar  tokens  supone  a  la  vez  un 
ahorro  de  energía  y  velocidad  a 
la  hora  de  almacenar  y  ejecutar 
los  programas. 

El  Basic  utiliza  los  tokens  desde 
$80  a  $CB  para  las  instrucciones 
Basic,  y  $FF  como  código  para 
PE  Se  pueden  utilizar  por  tanto 
los  tokens  desde  $CC  hasta  $FE 
para  las  nuevas  instrucciones  (M 
en  total).  Los  valores  de  0  a  $7  E 


Estas  dos  rutinas  de  conversión 
tienen  un  pequeño  inconveniente, 
no  son  tan  sencillas  de  utilizar 
como  las  de  ejecución  de  coman¬ 
dos  o  interpretación  de  funciones 
que  ya  se  han  explicado  en  este 
cursillo.  No  obstante,  con  unos 
pequeños  “trucos”  se  puede  tra¬ 
bajar  con  ellas  sin  problemas.  Es 
importante  a  partir  de  aquí  tener 
un  buen  libro  de  referencia  en  el 
listado  de  la  ROM  (como  el  64 
Interno)  para  ir  siguiendo  todos 
los  pasos,  o  en  su  defecto  obtener 
un  listado  con  un  monitor  oe 
código  máquina. 

La  rutina  $A57C-$A612,  a  don¬ 
de  salta  el  vector  $0304,  se  encarga 
de  convertir  a  tokens  una  linea- 
Basic  completa.  Sólo  hace  faifa 
un  pequeño  añadido  (un  BEQ  en 
la  posición  $A604)  para  que  ad¬ 
mita  nuevos  comandos.  Como 
está  en  ROM  y  no  se  puede  mo¬ 
dificar,  hay  que  escribirla  de 
nuevo  completamente,  lo  que 
supone  unos  150  bytes  mas  el 
tiempo  de  teclearla.  En  vez  de 
esto,  se  puede  hacer  algo  mas 
“inteligente”:  copiar  la  rutina  tal 
cual  desde  la  ROM  y  después 


hacer  las  modificaciones.  Esto 

puede  hacerse  con  un  EUR... 
NEXT,  como  en  el  ejemplo  del 

llSLa  rutina  es  relocalizable,  en 
esto  no  hay  problema  pero  al 
añadir  la  instrucción  BEQ  hay 
que  desplazar  dos  bytes  hacia 
adelante  las  últimas  instrucciones, 
concretamente  desde  $A604  hasta 

$A612.  Ademas  hay  un  par  oe 
saltos  relativos  que  van  desde/ 
hacia  esa  zona  final  de  la  rutina, 
que  también  habrá  que  ajustan 
Estos  saltos  están  en  $A607  y 

$ ^Veamos  el  resultado  (listado 
IV  el  FOR...NEXT  de  la  linea 
,50  copia  todos  los  bytes  de  la 
rutina,  comenzando  por  42364 
($A57C),  al  lugar  de  destino, 
49165  ($C00D).  La  variable  S 
(línea  160)  está  siempre  a  cero,  a 
menos  que  se  haya  llegado ,  a 
$A604,  en  cuyo  caso  S  ¿ 
este  modo  se  deja  un ‘hueco  de 
dos  bytes  al  hacer  los  últimos 
POKEs  (línea  170).  En  ese  hueco 
se  colocará  el  BEQ  que  bifurque 
a  la  nueva  rutina 

La  linea  190  “ensambla  un 
BEQ  +15  a  base  de  POKEs  di¬ 
rectos,  como  en  los  viejos  tiempos: 

$F0  es  el  BEQ  y  S0F  e  15.  Este 
BEQ  saltará  a  $C0A6  solo  cuand 
en  la  conversión  a  tokens  el  Bas 
no  reconozca  ninguno  de  los  to¬ 
kens  habituales.  Si  esto  sucede, 
se  podrán  comprobar  los  nuevos 
comandos.  Por  otro  lado,  la  linea 
200  modifica  los  dos  saltos  que 
hay  que  ajustar,  equivalentes  a 
los  BPL  y  BEQ  de  $A607  y 

$ACon  ía  rutina  copiada  y  modi¬ 
ficada  de  este  modo,  se  puede 

colocar  desde  $C000  a  $C00C  la 

rutinilla  que  cambie  el  vector  de 
la  rutina  original  (haciendo  que 
apunte  a  $C00D,  claro,  lineas 
370-400),  y  a  partir  de  $CUAO 
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situar  la  nueva  rutina  que  examine 
los  tokens  especiales. 

Cómo  realizar  la  convereión_ 

Subsanado  ese  pequeño  pro¬ 
blema,  el  resto  es  pan  u®1™  °ff 
partir  de  $0200  (el  llamado  Butter 
Basic)  se  encuentra  almacenada 
la  línea  exactamente  como  se  na 
tecleado.  Como  de  costumbre,  el 
puntero  TEXT  (S7A/S7B)  apunta 
al  byte  que  se  está  examinando 
en  ese  momento.  Para  realizar  la 
conversión  basta  con  ir  compa¬ 
rando  estos  caracteres  con  los  de 
una  tabla  donde  estén  almacena- 

USTADO  1 


dos  los  nuevos  comandos.  En  la 
rutina  del  listado  1  se  titiUza 
como  índice  para  comprobar  os 

caracteres  del  buffere  Y  para  los 

dC  Lasbneas  450-480  comprueban 
un  comando  letra  a  letra,  y 
rutinilla  de  500-540  pasa  al  si¬ 
guiente  comando  de  la  tabla  si  la 
comparación  falla  en  alguna  letr^ 

Si  se  acaba  la  tabla  (5  ), 

recupera  el  valor  original  de  X  y 
se  retorna  a  la  rutina  por  $C09  / 
(equivalente  a  SA604)  S,  se ^  en¬ 
cuentra  algún  token  (560)  se  le 
suma  $CC,  pues  los  nuevos  tokens 
deben  ir  de  $CC  en  adelante,  y  se 


sale  por  SC058  (equivalente  a 
SA5C7),  que  almacena  el  valo 
del  acumulador  como  un  token. 

Como  siempre,  la  tabla  con  lo 
nuevos  comandos  debe  acabar 
con  un  byte  cero  y  la  ultima  '(rtr* 
de  cada  palabra  tener  el  bit  / 
encendido.  Esta  tabla  es  la  misma 
que  se  utiliza  en  la  decodificacion 
de  tokens  a  caracteres,  como  vas 
a  ver  a  continuación. 

Nuevo  LIST 

para  los  nuevos  tokens  _ 

Modificar  el  comando  LIST 
para  que  también  liste  los  nuevos 


tNEXT 


iREM  SUMA  2  A  PARTIR^  *^2 
xREM  COPIA  BYTE  A  BYTE 

l^M  ^8TAUL0f  SALTOS  DE  LA  RUTINA 


VECTOR  DE  CONVERSION  A  T0¡<^Nf 

CONTADOR^ PAR A^EL^ NUMERO^ DE  COMANDO 

PUNTERO  DE  CHRGET 


(*A604> 


100  PE"  C°N'í!nnIBY  ALVARO^ B ANE Z 

1»  rIm  (0)1988  BV  COMMODORE  WORLD 

s  i- -a-  ""“l  11 . . 

SSssKassssK.. 

lo»  POKE*C09S,#F0:POKE*C096,*0F 
200  POKE*C09B,*BC«POKE*C063,*38 

210  * 

220  SYS7001 * • OPT  OO 

240  TOKENVEC  -  *®304 
250  BUFFER  -  *0200 
260  COMM  » 

a  n:  rr. 

3M  !  SALIDAS  DE  LA  R^INA.  ft  Lft  LINEA  CONVERTIDA  (#A5C7) 

lll  \  *,C097  SIGUE  ToU  LA  CONVERSION  NORMAL 

360  * 

LDA  #*0D.STA  TOKENVEC 
3,0  LDA  **C0«STA  TQKENVEC+1 
400  CLI *  RTS 
410  ; 

420  **  49318 

|  F  S  SSaS.?™ 

s  i 

A500  NEXTCOM  LDA t tabla, YtCOM 

320  INC  COMM.LDX  TEXT 
SM  INV.LDA  TABLA, V.BEQ  FIN 
540  JMP  LOOP 

OK  LDA  CDMM.CLC.ADC  **CC 
580  fTn  LD^TEXTiOMP  *C097 

SS  TABLA  .ASC  HOL/.COMMODOREWORLD  »  ,  .  BVT 


VECTOR  *0304  A  LA  RUTINA  MODIFICADA 

que  comienza  en  *C00D 


INICIO  DE  LA  RUTINA  EN  *C0A6 

srss  « u. «« «•  ■"  ” 

COMPARA  CONELBUFFER  ultim0 

^Re|CTEl’uLTImS,  SIGUE  CON  MAS  LETRAS 

1  LEER  c‘?nTAMEN0RIDET128=SEGUIR  LEYENDO 

\  comaÑdo-¿omando+i,  RECUPERA  X 

,  APUNTA  “Y"  NUEVAMENTE 
,  VUELVE  A  EMPEZAR 

nuevo  comando  encontrado^suma^cc 

haLencoÑtrado,  vuelve  a  la  rutina 


NO 
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tokens  es  mucho  más  sencillo.  El 
vector  de  $0306/50307  apunta  a 
una  subrutina,  $A71A-$A740, 
que  da  salida  a  un  byte.  Si  el  byte 
es  un  código  ASCII  se  imprime 
tal  cual  o,  si  es  un  token,  lo  lista 
como  la  instrucción  a  la  que  co- 
rresponda.  Aquí  también  hay 
que  copiar  un  trozo  de  la  rutina, 
pero  es  tan  corto  que  merece  la 
pena  ensamblarlo  al  principio  del 
programa. 

En  el  listado  2  puedes  ver  como 
se  realiza  esta  decodificacion. 

Las  líneas  700-730  cambian  el 
vector  para  que  apunte  a  la  nueva 
rutina.  A  partir  de  750,  y  hasta 
800,  se  realizan  unos  cuantos 
tests  sobre  el  byte  a  emitir.  Si  es 
menor  de  128,  se  emita  tal  cual 
(saltando  a  SA6F3).  Lo  mismo 
sucede  si  se  está  en  “modo  comi¬ 
llas”  (hay  un  flag  en  $0F  que  lo 
indica).  Solo  quedan  los  códigos 
desde  $80  hasta  $FF.  Si  el  byte  es 
$FF  se  imprime  tal  cual  (el  códi¬ 
go  para  Pl).  Por  último,  si  es 
menor  que  $CC,  se  sale  por 
$A724,  la  zona  de  la  rutina  que 
imprime  un  token  de  los  norma¬ 
les.  En  el  caso  de  que  el  valor  del 
byte  esté  entre  $CC  y  $FE,  se 
pasa  a  la  rutina  NEW  (820)  que 
es  la  que  imprime  cualquiera  de 
los  nuevos  comandos  de  la  tabla. 

Al  principio,  se  guarda  Y  en  la 
posición  $49  (es  un  puntero  que 
la  rutina  e  la  ROM  utiliza  poste¬ 
riormente).  Después  se  utiliza  Y 
como  índice  de  la  tabla  y  X  para 
contar  el  número  de  orden  de  la 
instrucción.  A  X  hay  que  restarle 
$CC  (línea  830)  para  obtener  el 
número  de  orden-1  correspon¬ 
diente  a  la  tabla.  El  resto  es  muy 
simple.  LOOP2  (línea  850)  toma 
todos  los  caracteres  hasta  la  pa¬ 
labra  adecuada  y  SEND  (870)  la 
imprime.  El  último  byte,  que 
tiene  el  bit  7  activado,  no  hace 
falta  imprimirlo,  pues  lo  hace 
automáticamente  la  rutina  origi¬ 
nal,  a  la  que  se  puede  volver  con 
JMP  $A6EF. 

Modificaciones, 
mejoras  y  ampliaciones 

También  puede  hacerse  una 
curiosa  “conversión”:  utilizar 
una  tabla  de  palabras  para  codi¬ 
ficar  y  otra  distinta  para  decodi- 
ficar.  Si  en  la  rutina  LIS  1  del 


listado  2  utilizas  una  segunda 
tabla  con  las  palabras  HE* 

LLO— COMMODORE-MUNDO, 

al  sacar  el  listado... 

También  puedes  hacer  que  la 
rutina  de  conversión  a  tokens 
admita  abreviaturas  (como  H 
fSHIFT  O]  para  FIOLA,  por  ejem¬ 
plo)  con  unos  pocos  bytes  más,  o 
que  la  rutina  de  listado  realice 
algunas  palabras  en  inverso,  en 
colores  o  incluso  que  mdente  los 
bucles  para  que  sean  mas  legibles. 


Ejemplos  prácticos 


El  programa  del  listado  3,  NUE¬ 
VO  LIST,  modifica  la  rutina 
LIST  para  hacer  algunas  cosidas 
curiosas:  imprimir  los  REMs  en 
inverso  e  indentar  perfectamente 
los  bucles  FOR  .  NEXT,  ana¬ 
diendo  espacios  para  que  sean 
más  legibles. 

Lo  único  que  hace  la  rutina  es 
modificar  el  vector  LIST,  y  cada 
vez  que  va  a  imprimir  un  carácter, 
comprueba  si  es  alguna  de  las 
instrucciones  REM,  FOR  0 
NEXT.  Si  es  REM,  manda  un 
rVS  ON  a  la  pantalla,  si  es  un 
FOR,  suma  1  a  un  contador  que 
indica  cuantos  espacios  hay  que 
añadir  al  principio  de  la  linea, 
para  anidar  los  bucles.  Si  encuen¬ 
tra  un  FOR,  resta  1  a  ese  conta¬ 
dor.  El  funcionamiento  es  tan 
sencillo  que  creo  que  con  las 
explicaciones  del  listado  se  puede 
entender  fácilmente.  . 

Por  otro  lado,  y  para  termina 
con  el  asunto  de  los  vectores 
Basic,  la  rutina  que  viene  a  con¬ 
tinuación  modifica  el  vector  de 
error  para  emitir  nuevos  mensajes. 
Aunque  esto  ya  ha  sido  explicado 
(en  el  capítulo  6,  un  apartado 
llamado  “generando  errores J’ 
aquí  puedes  ver  de  nuevo  como 

se  hace. 
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!£  í  EJEMPLO  DE 

.icr rrw  DE  ERROR  <*«3®0) 

1ÍS  i 

12  sT  '■  ss!s : 

190  1 

230  CLliRTS 

240  1  ^  ^  n*  |X->*80 

230  8TART  BMI  OK 

2¿>0  «  W  *E38B 

280  OK  LOA  .<MS3.LDY  «>MSQ 
290  «  JGR  STROUT 


300  i  JMP  *A47D 

3M  írae  .BYT  1S..ASC  -PREPARADO'.- 
330  i  -BYT  13,0 

Se  intercepta  el  vector  (para 
variar),  apuntando  a  la  nueva 
rutina.  El  vector  en  este  caso  es 
$0300/50301,  llamado  “warms- 
tart”  o  arranque  en  caliente.  Los 
mensajes  de  error  se  pasan  en  el 
registro  X,  y  pueden  tener  valores 
entre  0  y  30,  según  el  mensaje  de 
error.  Un  0  (o  un  valor  mayor 
que  $80)  indica  que  no  hay  error, 
y  hace  que  se  imprima  ‘  ready  . 
Normalmente,  los  valores  de  X 
entre  31  y  127  dejan  colgado  al 
ordenador,  pero  al  haber  inter¬ 
ceptado  la  rutina  puedes  tratarlos 
tu  mismo,  y  pueden  servirte  para 
emitir  tus  propios  mensajes  de 
error,  como  sucede  con  los 

tokens.  .  .  , 

También  puedes  imprimir  los 
mensajes  por  tu  cuenta  y  saltar 
directamente  a  $A462:  esto  hace 
aparecer  a  continuación  la  palabra 
“error”  y,  si  estás  en  modo  pro¬ 
grama,  “on  line  xxxx”,  seguidos 
en  cualquier  caso  de  ‘  ready  .  bi 
entras  por  $A465  evitas  que  se 
bloquee  el  comando  COMI,  y 
entrando  por  $A471  puedes  hacer 
que  aparezca  sólo  el  in  line 
xxxx”,  donde  “xxxx”  es  el  valor 
que  haya  en  $39/$3A. 

Como  todas  las  rutinas  que 
interceptan  estos  vectores,  per¬ 
manecen  conectadas  aunque  se 

“Tse  STOP/ RESTORE  (que 

normalmente  lo  desconecta  todo) 

Al  utilizar  los  vectores  Basic,  son 
un  poco  “delicadas”  de  progra¬ 
mar:  Cualquier  pequeño  fallo  en 
el  c.m.  hace  que,  si  fallan  después 
de  probarlasd,  ya  no  puedas  editar 
el  programa...  ¡lo  que  te  cargas  s. 
fallas  son  las  propias  rutinas  de 
evaluación,  listado  y  todo-lo- 

Estos  vectores  Basic  encierran 
muchas  otras 

ellas  inhibir  STOP/ RESTORE 
eliminar  los  errores  (se  pueden 
crear  comandos  como  ON 
ERROR  GOTO...),  comandos 
AUTO  que  te  ayudan  a  numerar 
las  líneas  de  un  programa,  y  un 
largo  etcétera.  Con  lo  que  se  ^ 
visto  en  los  últimos  capítulos, 
cualquiera  tiene  la  base  para 
realizar  sus  propias  ampliaciones 
del  Basic.  Solo  hace  falta  animar 
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^  Código  Maquina  a  fondo 


12 


& 


LISTADO  2 

S  ;  T0KEN3 

640  i  t 

650  LIST  *  *3306  f 

660  CHAROUT  -  »AB47  ; 

670  PUNTERO  -  , 

680  COMILLAS  *  *OF 

690  |  | 

700  SEI  ,  ___ 

710  LDA  #<START2*STA  LIST 
720  LDA  #>START2i STA  LIST+1 
730  CLIíRTS 
740  l 

750  START2  BPL  NO 

760  BIT  COMILLAS* BMI  NO 

770  CMP  #*FF  *BEQ  NO 

^  ***  'T¿  *A724 

800  NO  JMP  *A6F3 
810  | 

5  f“  UDV  rÜc?SBC  «CC.TAX 

850  L00P2^ I N Y i LDA  TABLA’^i|PL  L00P2 
860  ,  INYiDEXiBNE  LOOP2 

870  SEND  LDA  TABLA, Y* BMI  END 
880  *  JSR  CHAROUT 

890  *  INYiJMP  SEND 

900  | 

910  END  JMP  *A6EF _ _ 


VECTOR  DECODIFICACION  PARA  LIST 
EMITIR  CARACTER 
PUNTERO  PARA  "Y" 

FLAQ  PARA  COMILLAS 

VECTOR  LIST  (*0306)  A  LA  NUEVA  RUTINA 


<128,  LISTAR  TAL  CUAL 
MODO  COMILLAS,  TAL  CUAL 
CODIGO  PI 

C™UDr*Cc!VEHITTIRETOKEN  NORMAL 
EMITIR  BYTE 

GUARDAR  PUNTERO 

Y-0  (CONTADOR),  A-A-*CC,  X-H 

LEER  SIGUIENTE  COMANDO  DE  LA  TABLA 
Y-Y+l,  COMANDO-COMANDO- 1 ,  SEGUIR 
TOMA  UN  BYTE  DE  LA  TABLA 
IMPRIME  CARACTER 
SIGUIENTE 

l  FIN,  IMPRIME  EL  ULTIMO  CARACTER 


LISTADO  3 

100  SYS700I.OPT  00 
110  i 

120  ;  NUEVO  LIST 

130  I  REMS  EN  INVERSO 

I40  »  FOR...NEXTS 

150  i  (0  1988  BY  ALVARO  IBANEZ 

1¡60  1  (0  1988  BY  COMMODORE  WORLD 


170  J 
180  LIST 


*0306 

*FFD2 


280 

290 


190  CHROUT 

200  » 

210  SEI 

220  LDA  #<STARTiSTA  LIST 
230  LDA  #>8T ARTISTA  LIST+1 
240  LDA  #01 STA  SPACES 
250  CLIíRTS 

™  BTART  PHA1¿SR  N.S-PLAIPHA 

í  CMP  #129i  BEQ  POR 

30B  ,  CMP  #130. BEQ  NEXT 

310  JMP  PIN 

330  FOR  INC  SPACES! JMP  FIN 

350  NEXT  LDA  SPACESiBEQ  FIN 
36B  ,  DEC  SPACES: JMP  FIN 

Vel  REM  LDA  #"CRVS  ONJ-USR  CHROUT 
390  BNE  FIN 
400  s 

410  FIN  PLAiJMP  *A71A 

ItS  WEST  CPY  #4  i  BNE  ENDNEST 

440  ,  LDX  SPACESiBEQ  ENDNEST 

430  LOOP  LDA  #"  "iJSR  CHROUT 
460  i  DEXiBNE  LOOP 

470  ENDNEST  RTS 
480  i 

490  SPACES  -BYT  0 


;  VECTOR  LIST 
I  EMITIR  CARACTER 

;  MODIFICAR  VECTOR 

;  PUNTERO  ESPACIOS  A  CERO 

I  IMPRIME  ESPACIOS  SI  ES  NECESARIO 
I  TOKEN  REM 
I  TOKEN  FOR 
t  TOKEN  NEXT 

I  NINGUNO,  SALIDA  NORMAL 

I  (FOR)  ESP AC I OS—ESPAC I 0S+ 1 

i  (NEXT)  SI  ESPACIOS-0,  FIN 
;  espaciqs-espacios-i 

,  (REM)  IMPRIME  UN  "CRVS  ONl" 

!  SALTO  FORZADO 

,  RECUPERA  A  Y  VUELVE  A  LA  RUTINA  NORMAL 

,  COMPRUEBA  SI  Y-4  (POSICION  DEL  BUFFER) 
l  SI  ESPACIOS-0,  FIN 
,  IMPRIME  UN  ESPACIO 
>  SIGUIENTE... 

,  FIN  DE  LA  RUTINA 


,  CONTADOR  PARA  EL  NUMERO  DE  ESPACIOS 
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cable  e  interface  Centronics  y  10  programas  origina¬ 
les.  Angel  Luis  Bueno  Prieto.  Juan  de  Herrera,  67. 
24006  León.  Tel.:  (987)  25  50  95.  Llamar  a  partir  de 
las  10,30  de  la  noche.  (Ref  M-1256). 


•  Vendo  C-64,  datassette  1530  C2N,  fuente  de  alimen¬ 
tación  y  cables  para  instalación,  cartucho  “The  Final 
Cartridge  H’\  Cartucho  Freeze  Frame,  cartucho  Soccer, 
interface  copiador,  tres  joysticks,  decenas  de  revistas 
españolas  e  inglesas,  cientos  de  juegos  y  utilidades,  etc. 
Por  comprar  todo  regalo  Videopac  Philips  Plus,  con  tres 
cartuchos  (convertible  en  ordenador).  También  lo  vendo 
por  separado.  Precio  a  convenir.  Urge  comprar  unidad 
de  discos,  C-128  o  Amiga  500.  Francisco  Javier  Bernal 
Malillos.  Echegaray,  1.  Cantalejo.  40320  Segovia  Tel  • 
(911)  52040.  (Ref.  M-1251). 

•  Compro  colección  completa  de  revistas  Commodore 
World,  en  buen  estado.  David  Amat  Margarit.  Major, 
58.  Castell  Bisbal.  08755  Barcelona.  Tel.:  (93)  772  1 1  65 
(Ref.  M-1252). 

•  Vendo  C-128  en  garantía  (3  meses)  con  transforma¬ 
dor,  cables  y  manuales.  Unidad  de  discos  1570  con 
manuales,  cables  y  muy  poco  uso.  Impresora  MPS  801 
con  manuales  y  cables.  Tape  Commodore  1530.  Tape 
compatible  con  chivato  de  sonido  y  Azimuth.  Cartucho 
del  international  Soccer.  Joystick  Quick  Shot  1  y  11.  Joys- 
tick  Grand  Capitán.  Ordenador  Atari  65  XE  sin  estrenar 
y  con  garantía.  Ordenador  Spectravideo  728  con 
Tape,  con  muy  poco  uso.  Muchos  programas  para 
Commodore  64/ 128  e  IBM  PC.  Todo  ello  comprado 
en  la  distribuidora  oficial.  Además  se  regalan  libros 
y  muchísimos  programas  en  cinta  y  disco.  Se 
facilitan  facturas  de  compra  y  certificados  de 
garantía.  Alberto  Durán  López.  Avd.  de  Santa 
Marina,  42,  25  D.  El  Ferrol.  15405  La  Coruña. 
(Ref  M-1253). 

•Vendo  dos  ordenadores  Vic-20  con  sus  alimentadores 
y  sus  manuales.  1  tarjeta  Indescomp  de  expansión  para  5 
cartuchos.  1  cartucho  Vic-1 1 1 1  Expansión  16K  Ram.  1 
cartucho  Vic  121 1-A  Superexpander  +  3K  RAM.  1  Car¬ 
tucho  Vicl2l2  Programmer’s  Aid.  1  cartucho  Vic- 19 19 
Sargon  II  Chess.  1  tarjeta  40/80  col.  para  Vic-20.  Todo 
en  perfecto  estado  de  funcionamiento.  Todo  el  lote  por 
25.000  ptas.  Angel  López  Romani.  Avda.  Cataluña,  16. 
43002  Tarragona.  Tel.:  (977)  22  53  88.  (Ref  M-1254). 

•  Vendo  Amiga  1000,  con  monitor  en  color  Commo¬ 
dore  1081,  con  unidad  de  disco  externa  y  con  más  de 
230  programas.  Todo  junto  o  separado.  Precio  a  conve¬ 
nir.  Francisco  José  Torrel  Casanova.  Providencia,  180 
2 --2a.  08024  Barcelona.  Tel.:  (93)  213  85  49.  Llamar 
a  partir  de  las  6  de  la  tarde.  (Ref  M-1255) 

•  Se  vende  C-64  +  Datassette  +  Joystick  +  100 
programas  originales.  Regalo  libros.  Todo  ello  por 
31.000  ptas.  También  se  vende  impresora  Seikosha 
GP-550A  con  poco  uso  por  40.000  ptas.  Regalaría 


Deseo  contactar  con  otros  amigos  C  ommodorianos 
Nombre . 


Dirección 


Telf.: .  Ciudad: 


•  Vendo  Commodore  64  y  Unidad  de  discos  1541 
en  60.000  ptas.,  regalo  2  joysticks  sin  cables,  cartu¬ 
chos  the  Final  Cartridge,  revistas  y  libros,  así  como 
utilidades  y  juegos  (40  discos).  Angel  José  Fraile 
Vázquez.  Piedrabuena,  2.  28026  Madrid.  Tel.:  (91) 
475  34  14.  ( Ref  M-1251 ). 

•  Vendo  C-64  +  Datassette  C2N  4-  70  programas 
en  cienta  +  25  revistas  Commodore  World  +  cursi¬ 
llo  de  Código  Máquina  +  varios  libros.  Todo  ello  en 
perfecto  estado.  Precio  29.000  ptas.  José  Luis  Simón 
Lázaro.  Quemada,  2  1°  A.  09400  Aranda  de  Duero. 
Burgos.  (Ref  M-1258). 

•  Vendo  22  revistas  de  distintas  casas,  para  usuarios 
del  Commodore.  5  libros  referentes  al  manejo  de 
programas  para  el  C-64.  Curso  de  20  lecciones  de 
Basic  (Video  Pac)  para  el  C-64  (sin  usar).  En  cassettes 
y  libros.  Datassette  Unit  1530  (como  nuevo).  Lote  de 
varios  programas  y  cassettes  tanto  de  juegos  como  de 
utilidades.  Joystick  (como  nuevo).  El  precio  de  todo 
el  lote  es  de  12.000  ptas.,  también  se  puede  vender 
por  separado.  Enrique  Albert  Deltell.  Marqués  de 
Molins,  23  5-C.  Elche.  03201  Alicante.  Tel.:  (965) 
44  94  00.  (Ref  M-1259). 

•  Vendo  Commodore  16  4  Datassette  1531  4  di¬ 
versos  números  de  la  revista  Commodore  World  4 
2  cintas  de  juegos  4  fotocopias  de  original  de  “La 
Guía  del  programador  C-16  Plus/4”,  en  inglés,  no 
publicada  en  España.  Precio  a  convenir.  Sólo 
provincia  de  Gerona.  Xavier  Rossell  Sierramitja. 
Escoles,  42.  17160  Angles.  Gerona.  Tel.:  (972)  42  21 
39.  Preguntar  por  Xevi.  (Ref  M-1260). 

•  Vendo  C-64  con  unidad  de  discos  1541.  Unidad 
de  cassette  C2N,  manuales,  programas,  libros  y  revis¬ 
tas.  Todo  por  60.000  ptas.  Javier  Ontañón  Ruiz. 
Estrella  Polar,  22,  12  B.  28007  Madrid.  Tel.:  (91) 
273  82  80.  Llamar  por  la  noche.  (Ref  M-1261). 

•  Vendo:  C-64,  cable  conexión  a  euroconexión, 
unidad  de  discos  1541,  cartuchos  de  Final  Cartridge 
II,  Cartucho  Simon's  Basic,  Cassette  compatible 
Commodore,  caja  metálica  con  cerradura  y  pintura 
antimagnética  para  50  discos,  más  de  50  discos  con 
juegos  y  utilidades.  Lo  vendo  todo  por  70.000  ptas. 
O  bien  por  separado  acordando  el  precio.  Luis 
Tudela  Casasnovas.  Pje.  Tossa,  20.  08700  Igualada. 
Barcelona.  Tel.:  (93)  804  55  81.  (Ref  M-1262). 

•  Vendo  C-128  4  Datassette  Commodore  4  joys¬ 
tick  4  5  libros  de  Data  Becker  4  unas  30  revistas  de 
informática  y  una  gran  variedad  de  juegos  y  utilida¬ 
des.  Precio  a  convenir.  Enrique  Vicente  García.  Polí¬ 
gono  Gomal  Bl.  65  4e  3a.  Hospitalet  de  Llobregat. 
08902  Barcelona.  Tel.:  (93)  336  06  36.  (Ref  M-1263). 

•  Vendo  los  Cartuchos  Simon’s  Basic,  The  Final  Car¬ 
tridge  II,  Unidad  de  discos  1571,  Super  Riteman  C  4. 
José  García  Carmona.  Noguera  Pallaresa,  32.  25600 
Balaguer.  Lérida.  Tel.:  (973)  44  73  83.  (Ref  M-1264). 

•  Vendo  C-128D,  tableta  gráfica  Koala  Pad,  joystick 
Quickshot  II,  datassette,  300  juegos  y  utilidades  en  disco 
y  cinta,  varios  libros  y  la  colección  completa  de 
Input  Commodore.  Todo  en  perfecto  estado  y  gran 
calidad  de  los  programas.  Todo  por  112.000  ptas. 
negociables.  Antonio  Navarro  Zanon.  Eugeni 
D’Ors,  16.  17458  Fornells  de  la  Selva.  Gerona.  Tel.: 


(972)  47  64  47.  (Ref  M-1265). 


C.p .  Provincia 

Modelo  de  ordenador . 


|  •  Vendo  C-64  4  Unidad  de  discos  1541  4  impresora 

Seikosha  4  50  cintas  y  50  discos  con  juegos  y  utilidades 
I  4  libros  4  instrucciones  4  muchas  revistas.  Todo  por 
.  70.000  ptas.  Ricardo  Gimeno  Godes.  Córcega,  114 

I  entlo.  Ia.  08029  Barcelona.  Tel.:  (93)  230  43  24.  (Ref 


Tengo  Cassette .  □ 

Unidad  de  Disco .  □ 


r 
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M-1266) 

•  Vendo  interface  RTTY-CW  conmutación  RX-TX 
automática,  memoria  para  grabación  de  mensajes.  Bús¬ 
queda  automática  de  velocidad  por  18.500  ptas.  Tam¬ 


bién  The  Final  Cartridge  II  por  8.500  ptas.  Antonio 
Cano  Granada,  34.  Peñaflor.  41470  Sevilla  (incluir  n9  de 
Tel.:).  (Ref.  M-1267). 

•  Vendo  C-64,  Cassette,  dos  joysticks  y  más  de  200 
juegos  y  programas  por  35.000  ptas.  También  vendo 
monitor  Mekal  de  12”  en  fósforo  verde  por  15.000  ptas. 
Se  vende  junto  o  separado,  todo  con  sus  manuales  y 
cables.  Angel  García  Olaya.  Aragón,  6.  45005  Toledo. 
Telf.:  (925)  22  62  96.  (Ref  1268). 

•  Vendo  Cartucho  final  Cartridge  I,  Interface  cassette 
(C-64,  Vic-20)  y  botón  de  reset.  Josba  López  Aguirre. 
Eguiguren,  16,  5Q  B.  20600  Eibar.  Guipúzcoa.  Tel.: 
(943)  70  23  02.  (Ref  M-1269). 

•  Vendo  C-128,  1571,  Cassette,  Seikosha  SpIOOOVC, 
libros  de  Data  Becker,  revistas,  Final  Cartridge  II,  pro¬ 
gramas.  Precio  a  convenir.  Joaquín  Figueira  Fernández. 
Bures,  39.  Rianxo.  15920  La  Coruña.  Tel.:  (986) 
86  24  51.  Llamar  preferiblemente  a  Galicia  o  pagan 
portes.  (Ref.  M-1270). 

•  Vendo  C-128,  Unidad  de  discos  1571,  monitor  color 
de  vídeo  compuesto  y  RGB,  Commodore  1901,  Datas¬ 
sette  C2N,  todo  prácticamente  nuevo  por  1 10.000  ptas. 
Regalo  unos  200  juegos  y  programas  en  cinta  y  disco, 
también  varios  libros.  José  Manuel  Arnesto  López. 
Avda.  Fernando  Arce,  10  -  7Q  B.  39300  Torrelavega. 
Cantabria.  Tel.:  (942)  88  12  90.  (Ref.  M-1271). 

•  Vendo  C- 1 28  nuevo  (30.000  ptas.).  Unidad  de  diseqs 
1.571  (40.000  ptas.).  Monitor  color  alta  resolución  RGB 
(65.000  ptas.),  impresora  Riteman  C4  (50.000  ptas.). 
Carmelo  Caravias  Aguilar.  Panamá,  8.  Majadahonda. 
28220  Madrid.  Tel.:  (91)  638  82  32.  (Ref  M-1272). 

•  Vendo  C- 1 28  con  juegos,  MPS  80 1 ,  libros  64  y  revis¬ 
tas,  datacassette,  joysticks  y  listados  propios.  Todo  por 
60.000  ptas.  (Incluyo  manuales).  Reynold  Valdés  Sola¬ 
res.  Pto.  Pajares,  16  5°  Deha.  Gijón  33207  Asturias.  Tel.: 
(985)  14  74  13.  (Ref.  M-1273). 

•  Vendo  C-64  en  buen  estado  por  25.000  ptas.  Nicolás 
Moreno  Gellini.  Valle  Franco,  47  “Las  Comas”,  Boadilla 
del  Monte.  28660  Madrid.  Tel.:  (91)  633  05  27  (Ref 
1274). 

•  Vendo  C-128,  unidad  de  discos  1570,  cassette  1530- 
C2N,  juegos  y  aplicaciones  para  C-64  y  C-128  en  disco, 
manuales  de  instrucciones,  40  ejemplares  de  una  revista. 
Todo  en  perfecto  estado  por  80.000  ptas.  Gabriel  Ferre 
Isern.  Avda.  San  Pablo,  55.  Alcover.  43460  Tarra¬ 
gona.  Tel.:  (977)  84  64  41.  (Ref  M-1275). 

•  Cambio  por  un  C-64  y  cassette  el  siguiente  material: 
Ordenador  Sony  HT-75P  sistema  MSX,  joystick,  juegos 
de  cartucho  y  cinta,  libros.  Perfectísimo  estado  y  emba¬ 
laje  original.  También  lo  vendería  barato  o  estudiaría 
otras  proposiciones.  Faustino  Torre.  Ramón  y  Cajal,  3- 
3Q.  Sama  de  Langreo.  33900  Asturias.  Tel.:  (985 
69  52  98.  (Ref  M-1276). 

•  Vendo  C-128  con  adaptador  cable  de  80  columnas, 
unidad  1571,  dos  joysticks,  monitor  Nec,  alta  resolución 
fósforo  verde,  revistas,  libros  y  programas.  Todo  por 
80.000  ptas.  Miguel  Hayas  Barru.  Garrofers,  62-64  59  2. 
08016  Barcelona.  Tel.:  (93)  350  38  00.  (Ref  M-1277). 

•  Vendo  C-64  +  datassette  +  joystick  por  30.000  ptas. 
además  de  muchos  juegos  y  programas.  José  Guillemi 
Martínez.  Bailén,  94  l9-la.  08009  Barcelona.  Tel.:  (93) 
246  34  44.  (Ref.  M-1278). 

•  Vendo  C-64  y  unidad  de  discos  1541  a  25.000  ptas. 
(regalo  1530).  También  dispongo  de  varios  accesorios. 
Guillermo  Cuadros.  Avda.  Paralelo,  95  59-la.  08004 
Barcelona.  Tel.:  (93)  241  70  55.  (Ref  M-1279). 

•  Vendo  C-64,  unidad  de  discos  1541.  Final  Cartridge 
II,  programas.  Todo  por  75.000  ptas.  (Se  puede  vender 
por  separado).  Jordi  Tous.  P9  Maragall,  36  1  39.  08032 
Barcelona.  Tel.:  (93)  229  00  45.  Llamar  tarde  a  partir  de 
las  7  h.  (Ref  M-1280). 

•  Se  vende  unidad  de  discos  1571,  cassette  especial 
Commodore.  El  cassette  y  60  cintas  por  10.000  ptas.  Lo 
restante  a  convenir.  Jesús  Ma  Pinazo  Ruiz.  Avda.  Anda¬ 
lucía,  96.  Caleta  de  Vélez.  29751  Málaga.  Tel  •  (952) 
51  13  04.  (Ref.  M-1281). 


LOTO-64  PARA  DISCO 

En  el  número  43  publicamos  el  programa  LOTO-64, 
que  tal  y  como  se  decía  en  el  artículo,  puede 
funcionar  con  disco  o  cinta  indistintamente,  con 
sólo  hacer  unos  pequeños  cambios.  Debido  a  que  hemos 
recibido  muchas  consultas  de  gente  que  no  sabe  cómo 
hacer  estos  cambios,  publicamos  a  continuación  las 
líneas  que  hay  que  modificar  para  que  los  ficheros  de 
datos  se  puedan  guardar  en  disco. 

En  el  programa  LOTO. RED,  debe  modificarse  la 
línea  160  para  que  al  nombre  del  fichero  se  le  añada  un 
“,S,W”  (secuencial,  escribir)  y  se  abra  el  fichero  2  a  disco 
(periférico  8,  en  vez  del  1  para  cinta).  Como  con  esta 
modificación  la  línea  queda  demasiado  larga  para  que 
pueda  teclearse,  hay  que  dividirla  en  dos  partes,  añadiendo 
el  resto  en  la  161,  como  se  ve  en  el  listado. 

Por  otro  lado,  en  el  programa  principal,  tan  sólo  hay 
que  cambiar  todos  los  tt,l”  de  apertura  de  ficheros  en 
cinta  a  “,8”  para  que  funcionen  sobre  el  disco.  También 
hay  que  tener  en  cuenta  que  la  dirección  secundaria 
(número  de  buffer)  al  abrir  este  tipo  de  ficheros  en  disco 
debe  ser  2  o  más  (por  eso  el  “,8,2”),  para  no  interferir  con 
el  buffer  de  datos  de  la  unidad.  I 


PROGRAMA i  LOTO- RED-DISCO  LISTADO  1 

160  IF8*«"C,,THENT*-"L0T0,,+STR*<B>+S  -182 
TR*(Z>  iOPEN2,B,2fT*+",B,W" 

161  IF8*-"C"THENB*-CHR*< 13) IPOKE499  .243 
14,13 


PROGRAMA i  LOTO  -DISCO  LISTADO  2 

113  OPEN1 ,8,2,T$i V*0  .105 
250  OPEN1 ,8,2,T*i V-0  .240 
373  OPEN1 ,8,2,T$i N=0  .236 


HOJA  DE  CALCULO 

Por  Antonio  Sarti 

El  programa  Calcaid  64,  publicado  en  el  número  34, 
tenía  un  pequeño  defecto:  el  programa  se  entiende 
y  se  maneja  con  facilidad,  pero  puesto  que  el  plan 
de  cuentas  que  manejo  está  compuesto  por  más  de  25 
cuentas  principales,  al  pulsar  la  tecla  F5  con  la  que  se 
imprime  la  hoja  en  papel,  el  programa  sólo  imprime  los 
datos  de  la  primera  columna  en  las  siete  primeras  colum¬ 
nas,  dejando  las  siguientes  columnas  sin  identificar,  con 
la  molestia  de  tener  que  mirar  las  primeras  siete,  lo  que 


puede  dar  lugar  a  errores  de  lectura  (en  las  celdillas  de  la 
primera  columna  asigné  meses  y  otros  datos  de  lectura 
para  la  perfecta  comprensión  del  contenido  de  cada  casi¬ 
lla).  Me  decidí  a  modificar  el  programa  para  que  cuando 
se  utilice  la  “función  de  imprimir”  se  pueda  mantener  la 
primera  columna  en  todas  las  páginas. 

Las  líneas  que  hay  que  añadir  o  modificar  están  en  el 
listado  que  viene  a  continuación.  Esto  es,  más  o  menos, 
lo  que  hace  cada  línea: 

La  línea  60  hace  que  se  pueda  salir  del  programa  de 
una  manera  más  limpia  que  la  de  la  utilización  de  la  tecla 
RUN/STOP.  Al  pulsar  la  tecla  “LIBRA”,  aparecerá  un 
mensaje  que  nos  pedirá  confirmación  si  queremos  aban¬ 
donar  el  programa.  De  esto  se  ocupan  las  líneas  30000- 
30030. 

Las  líneas  13500  y  13505  han  sido  modificadas  para 
obtener  en  la  impresora  una  línea  divisora  cuando  se 
utilicen  más  de  siete  columnas  de  listado,  así  como  la 
numeración  de  la  “hoja”  (no  hacía  mucha  falta  pero 
queda  más  presentable).  La  línea  13506  imprime  el 
número  de  hoja,  y  las  líneas  13535-13537  son  las  que 
imprimen  la  columna  AO-ZO  en  el  momento  necesario. 

Las  líneas  13600-13615  tienen  la  función  de  imprimir  la 
línea  de  separación  de  hoja  y  continuar  con  la  impresión 
de  la  columna  AO-ZO  si  se  quiere. 

Las  líneas  35000-35040  contienen  la  subrutina  en  la 
que  el  programa  te  pregunta  si  deseas  imprimir  la 
columna  AO-ZO  al  principio  de  cada  hoja. 

Espero  que  estas  modificaciones  os  sirvan  para  tener 
una  hoja  de  cálculo  más  presentable  y  clara.  ■ 


LINEAS  A  AÑADIR  AL  PROGRAMA 
'CALCAID  64'  PUBLICADO  EN  EL 
NUMERO  34 


PROGRAMA!  CALCAID  2.0  LISTADO  1 

60  GETG4i IFG4*" CLIBRA3 "THEN30000  .74 

13500  H-l«Q-7iOPEN4,4  .198 

13303  PR I NT #4 , CHR4 ( 1 0 ) |  .195 

13306  PR I NT #4 , SPC ( 3 ) CHR4 (18) "  *  *  *  .196 

HOJA  N. "H| M*  *  *  "CHR*<146> iH-H+li 
PRINT44 

13333  IFTOTTHEN1 3600  .45 

13336  IFZX-lTHENPRINT#4,T»i "03"|DA4  .244 

<R,0> | i IFZY-0THENTC-TC-1I ZY-1 
13537  IFZX-1THEN13545  .115 


13600  PRINT#4,CHR*<13> j «NEXTi PRINT#  .169 
4 

13601  FORB-1TO2«PRINT#4,"C40SHIFT*3  .238 
"| «NEXTiPRINT#4 

13610  TC-TC+Qi IFTC>-TTHENPRINT#4iCL  .49 
OSE4» ZX-01 ZY«0i GOTO9900 

13614  IFZX-1THEN13620  .101 

13613  GOSUB33000  .178 

30000  PR I NT " C  CLR 1 C 5CR8RD I C  4CRSRR 1 C  R  .215 
VSON1 DESEAS  CERRAR  EL  PROGRAMA  (S/N 
>?" 

30010  GETG$i IFG4<  >"SM ANDG4<  >"N"THEN  .211 
30010 


30020  IFG*-"N,,THENG*«""«GOTO9900  .151 

30030  POKE33280 , 0i P0KE33281 ,01 PRINT  .245 
" C  CLR 1 C  WHT  D " «  END 

33000  IFZX-1THENRETURN  .202 

33003  PR I NT " C  CLR  3  C  6CRSRD  3  C  3CRSRR 1 DE  .31 
SEAS  IMPRIMIR  LINEAS  <A0-Z0>" i PRINT 
SPC (56) " (B/N) " 

33010  6ETZX$i IFZX4*" "THEN35010  .246 

33020  IFZX*«"N"THENRETURN  .192 

35030  IFZX*-"S"THENZX-liQ«6iRETURN  . 190 
33040  GOTO35010  .230 


ARTAS  DLL  LECTOR 


SOFTWARE  ESPECIAL 

Desearía  información  sobre  el  paquete 
especial  de  Software  para  Amiga  de  30.000 
ptas.,  anunciado  en  la  revista  44,  y  saber 
dónde  puedo  pedirlo. 

José  M.  Pallares  Martí 
Camino  de  las  Cabras,  36  3Q  16. 
17310  Lloret  de  Mar  (Gerona) 

El  paquete  especial  de  software  para 
Amiga,  que  aparece  comentado  en  este 
número,  lo  distribuye  Commodore,  S.A. 
Puedes  ponerte  en  contacto  con  ellos  en  las 
siguientes  direcciones: 

Commodore,  S.A. 

C/  Príncpe  de  Vergara,  109. 

28002  Madrid. 

Tel.:  (91)  262  16  00. 

C/  Valencia,  47-53. 

08015  Barcelona. 

Tel.:  (93)  325  50  08. 

AMPLIACIONES 
DE  MEMORIA 

Qué  noticias  tenéis  sobre  las  ampliaciones 
de  memoria  para  C-64/128  (1700,  1750, 
1764).  ¿Taradarán  mucho  en  aparecer  en  el 
mercado  español? 

Sería  conveniente  que  en  breve  plazo  nos 
hiciérais  un  amplio  y  detallado  comentario 
sobre  los  módems  y  cómo  está  España  prepa¬ 
rada  a  nivel  nacional  e  internacional.  Desta¬ 
cando  además  toda  la  gama  disponible  para 
nuestros  ordenadores,  con  sus  características 
completas. 

No  estaría  nada  mal  también  que  prepará- 
seis  una  nueva  reposición  del  Especial  impre¬ 
soras,  pero  ahora  tratando  aquellas  que  van 
más  allá  de  una  simple  impresora,  como  la 
nueva  NEC  color,  o  la  PJ-108A  de  Cannon, 
o  las  recientes  Epson,  etc. 

José  A.  Gómez 
C/  Nuñez  de  Ousende,  4  2Q  D. 

32004  Orense. 

Las  ampliaciones  de  memoria  1700, 1750  y 
1764  para  los  ordenadores  C-64  y  C-128  no 
van  a  ser  comercializadas  en  España  por 
Commodore,  aunque  se  pueden  conseguir 
por  correo  desde  el  extranjero  o  bien  a  través 
de  algún  otro  importador. 

Recogemos  tus  sugerencias  respecto  a  los 
módems  y  las  impresoras.  Estamos  prepa¬ 
rando  un  artículo  sobre  los  módems  que  será 
publicado  en  breve.  El  número  de  bases  de 
datos  y  BBS  (Bulletin  Boards  Systems, 
“tablones  de  anuncios1'  para  conexión  entre 
usuarios)  está  aumentando  día  a  día,  y  en 
algunos  de  ellos  hay  un  gran  número  de 
usuarios  Commodore-64,  128  y  Amiga. 

PROBLEMAS 
CON  LA  TORTUGA 

Adquirí  hace  tiempo  el  LOGO  de  Com¬ 
modore,  es  francamente  un  lenguaje  muy 
bueno,  pero  esta  versión  de  Commodore  no 
permite  utilizar  la  unidad  de  discos  más  que 
como  almacenamiento  de  los  programas,  de 
las  pantallas  o  de  los  sprites,  pero  no  puedo 
utilizarla  como  almacenamiento  de  datos 
para  manejar  ficheros  secuenciales,  directos  o 
relativos.  Este  lenguaje,  que  supera  al  Basic 
abismalmente,  es  una  pena  que  no  tenga  ins¬ 
trucciones  adecuadas  para  manejar  ficheros. 
¿Cómo  podría  subsanar  esta  falta? 


He  copiado  correctamente  el  programa 
“Dragón”  del  número  33  y  después  de  la  pan¬ 
talla  de  presentación,  la  pantalla  se  borra  y 
sólo  veo  los  mensajes. 

Martín  Lozaya  Hortelano. 

C/  Poeta  Quero l,  9. 

46002  Valencia. 

Desgraciadamente,  el  LOGO  de  Commo¬ 
dore  no  permite  utilizar  la  unidad  de  discos 
para  almacenar  ficheros  secuenciales  ni  rela¬ 
tivos.  No  conocemos  ningún  sistema  que 
permita  subsanar  este  “pequeño”  fallo. 

Podemos  asegurarte  que  el  listado  de  “El 
Castillo  del  Dragón”  está  completamente 
bien,  pero  con  los  pocos  datos  que  nos  das  es 
imposible  decirte  dónde  tienes  el  error.  Si  no 
consigues  que  funcione,  mándanos  una  cinta 
con  el  programa  grabado  y  nosotros  te  la 
devolveremos  con  la  versión  original.  Por 
cierto,  desde  que  hemos  dado  esta  opción  a 
nuestros  “sufridos”  lectores  que  se  teclean  los 
listados,  estamos  recibiendo  muchas  cintas 
con  programas  que  no  funcionan,  lo  que  nos 
obliga  a  pediros  que  incluyáis  100  pesetas  en 
sellos  para  los  gastos  de  franqueo  y  embalaje. 

DUDAS  SOBRE  EL  RESET 

¿Sería  posible  instalar  un  botón  de  reset  en 
el  Commodore  64?  Tengo  algún  amigo 
que  se  ha  hecho  un  botón  de  reset  en  el  por 
del  usuario,  pero  quisiera  saber  cómo  se  hace 
y  cuál  puede  ser  el  precio  material  empleado. 
Así  mismo,  quisiera  saber  cuando  introducir 
los  pokes  o  cargadores  para  vidas  infinitas 
después  de  hacer  el  reset,  aunque  he  oído  que 
puede  ser  perjudicial  para  el  ordenador  este 
tipo  de  reset  si  no  es  con  uno  comercial.  ¿Hay 
a  la  venta  algún  aparato  que  haga  la  función 
de  reset  sin  tener  que  comprar  un  cartucho? 
¿Cuál  es  su  precio  de  venta? 

Diego  González  Pérez. 

C/  Cuesta  del  Centro,  8. 

Marín,  36900  Pontevedra. 

El  botón  de  reset  para  el  C-64  puedes  fabri¬ 
cártelo  tu  mismo  sin  ningún  problema.  El 
montaje  se  comentó  en  el  número  3  de  nuestra 
revista.  Consiste  en  unir  con  un  pulsador  y  el 
correspondiente  conector  las  patillas  2  y  6  del 
port  serie  del  ordenador  (donde  se  conectan 
la  impresora  y  la  unidad  de  discos).  Si  tienes 
la  unidad  de  discos  o  la  impresora  conecta¬ 
das,  tienes  que  colocar  el  botón  en  el  conec¬ 
tor  que  queda  libre  en  estos  periféricos.  Otra 
posibilidad  es  colocar  el  interruptor  entre  las 
pistas  1  y  3  (tierra  y  RESET)  del  port  del 
usuario  ó  1  y  C  del  port  de  expansión.  En 
cualquiera  de  los  tres  casos  necesitas  un 
conector  apropiado,  que  no  cuesta  más  de 
300  pesetas.  Si  realizas  las  conexiones  correc¬ 
tamente,  el  ordenador  no  corre  ningún  peli¬ 
gro.  La  mayoría  de  los  cartuchos  comercia¬ 
les,  como  Final  Cartridge,  Freeze,  Frame, 
Freeze  Machine,  Expert,  etc.,  incorporan 
este  botón.  Sus  precios  oscilan  entre  las  4.000 
y  las  15.000  ptas. 

Para  hacer  los  POKEs  en  algunos  de  los 
juegos  comerciales  que  permiten  “vidas  infi¬ 
nitas”  debes  hacer  reset  y  después  teclear  esos 
POKEs  en  modo  directo,  esto  es,  sin  núme¬ 
ros  de  línea.  Después  debes  hacer  el  SYS  que 
se  indique  para  arrancar  de  nuevo  el  pro¬ 
grama. 

DEMASIADO  RAPIDO... 

Soy  usuario  de  Commodore  64  y  estoy 
aprendiendo  el  código  máquina,  pero  tengo 


un  problema.  Hace  poco  hice  un  pequeño 
programa  en  ensamblador:  según  un  movi¬ 
miento  del  joystick,  un  sprite  (un  bloque 
cuadrado)  se  movería  a  la  izquierda  o  a  la 
derecha.  No  os  reproduzco  el  programa,  pero 
en  síntesis  era  leer  el  port  del  joystick  (LDA 
$DC00)  y  luego  comparar  los  valores  con  la 
instrucción  CMP.  Pero  al  arrancarlo  y  mover 
el  joystick,  el  sprite  se  mueve,  sí,  pero  a  una 
velocidad  increíble,  y  además  cambiando  de 
forma.  De  ser  un  cuadrado  a  ser  un  rombo.  Y 
mi  pregunta  es:  ¿Es  esto  debido  a  la  gran 
velocidad  del  lenguaje  ensamblador?  No  creo 
que  sea  fallo  mió,  pues  he  repasado  mil  veces 
el  programa.  He  intentado  ralentizarlo  un 
poco  (con  NOPs),  pero  nada.  ¿Hay  alguna 
forma  de  hacer  que  el  sprite  se  mueva  suave¬ 
mente  y  no  tan  rápido?  Si  la  hay  y  la  sabéis, 
decídmela  por  favor,  pues  quiero  hacer  un 
juego  y  estoy  estancado  en  eso. 

Javier  Guerrero  Díaz. 

C/  Emilia  Santacana,  5. 

Algeciras,  11201  Cádiz. 

Tu  problema  es,  efectivamente,  de  veloci¬ 
dad.  Las  instrucciones  de  c.m.  se  ejecutan  tan 
deprisa  que  el  movimiento  de  un  sprite,  redu¬ 
cido  a  una  instrucción  STA,  es  sumamente 
rápido.  Tan  rápido  que  aparece  “deformado” 
en  la  pantalla  en  forma  de  rombo,  línea,  y  a 
veces  ni  se  ve.  Para  solucionarlo  no  basta 
incluir  NOPs,  pues  cada  NOP  retrasa  tan 
sólo  2  milisegundos  la  ejecución  del  pro¬ 
grama,  sino  que  debes  incluir  un  “bucle 
vacío”  equivalente  al  FOR  T=1  TO 
1000:  NEXT  del  Basic.  Las  instrucciones 
necesarias  son: 

LDY  #$00 
bucle  INY 

BNE  bucle 


El  salto  BNE  debe  apuntar  a  la  dirección 
donde  esté  el  INY  de  “bucle”.  Esto  hace  que 
el  ordenador  cuente  de  0  a  255,  para  lo  que  ya 
necesita  unas  cuantas  centésimas  de  segundo. 
Debes  colocar  esta  rutina  en  un  lugar  por  el 
que  siempre  pase  el  programa.  Si  necesitas 
más  retardo  todavía,  puedes  “anidar”  dos 
bucles: 


LDY  #$00 
LDX  #$00 
bucle  INX 

BNE  bucle 
INY 

BNE  bucle 

Ahora  el  ordenador  contará  de  0  a  65535 
(256=256)  antes  de  seguir.  Puedes  variar  los 
valores  iniciales  para  conseguir  retardos 
variables,  o  añadir  más  bucles  todavía  para 
que  vaya  más  lento. 


FÍ- 


AMIGA  500 

Poseo  un  Amiga  500  y  quisiera  saber 
cuándo  se  traducirá  la  revista  Amiga  World. 
¿Será  más  barata  supongo?  ¿Pasará  con  los 
juegos  y  programas  de  los  ordenadores 
Amiga  y  Atari-ST  lo  mismo  que  con  los  de 
Commodore,  es  decir,  serán  más  baratos?  ¿Es 
cierto  que  hay  un  simulador  del  Atari-ST? 

David  Fabrega  Maestre. 

C/  Onis,  12. 

Albons,  Gerona. 

De  momento  no  pensamos  ni  editar  ni  tra¬ 
ducir  nuestra  revista  hermana  americana 
Amiga  World,  aunque  en  Commodore 


1 —  50/Commodore  World 


World  estamos  utilizando  algunos 
de  sus  artículos  para  nuestra  sec¬ 
ción  de  Amiga.  Tampoco  pode¬ 
mos  descartar  la  posibilidad  de 
que  no  se  haga  en  el  futuro. 

Es  muy  posible  que  en  el 
mercado  de  los  programas 
para  Amiga  (juegos,  apli¬ 
caciones,  etc.),  suceda  lo 
\  que  ha  venido  sucediendo 

\  desde  un  año  a  esta  parte 

J  con  los  micros  domésticos: 

jf  la  progresiva  disminución  de 

los  precios  hasta  llegar  a  los 
increíbles  precios  de  800  ó  500 
l  pías.,  programa.  Aún  así,  esta 
\  disminución  llevará  algo  de 

\  tiempo,  pero  actualmente 

\  ya  hay  ofertas  de  varios  de 

\  estos  programas  (juegos 

V  sobre  todo)  a  precios 

W  muy  asequibles. 

F\  Efectivamente  (ya  vemos 

que  nuestros  lectores  están 
/  bien  informados)  existe  un 

simulador  de  Atari  ST  para 
Amiga.  Esto  quiere  decir  que, 
con  este  programa,  el  Amiga 
será  capaz  de  leer  los  discos 
de  Atari  y,  lo  más  impor¬ 
tante,  ejecutar-todos-sus- 
programas.  Desde  hace 
tiempo  el  amiga  es  capaz  de 

)  correr  los  programas  de  PC 
(con  el  emulador  Transformer) 
y  de  Commodore-64  (GO-64  y 
64  Emulator).  También  hemos 
oido  con  nuestras  antenas  que 
hay  un  emulador  de  Macintosh, 
uno  de  los  mejores  y  más  populares 
ordenadores  de  Apple.  Dicen,  y  no 
sabemos  si  será  cierto,  que  es 
cierto,  que  es  incluso  mejor  que  el 
propio  Macintosh,  pues  además  de 
ser  100%  compatible  es  mucho  más 
rápido.  Los  discos  del  Mac,  de  3.5 
pulgadas,  también  son  compatibles, 
claro. 

En  definitiva,  el  que  esté  pensando 
en  comprarse  un  Amiga  ha  de  saber 
que  está  comprando  a  la  vez  un  PC, 
un  C-64,  un  Atari  ST  y  un  Apple 
Macintosh...  (¡ejem!,  ¿por  qué  con 
los  demás  ordenadores  no  sucederá 
lo  mismo?). 


(  DESEO  CONTACTAR, 
r  DESEO  CONTACTAR... 

Hace  un  par  de  meses  os  pedí  (por 
carta,  junto  con  el  cheque  de  mi  sus¬ 
cripción)  que  incluyérais  mis  datos  en 
el  apartado  para  contactar  con  otros 
amigos  commodorianos.  Como  no  he 
obtenido  respuesta  alguna,  ni  en  el 
número  de  diciembre  ni  en  el  de  enero  he 
visto  publicado  mi  anuncio,  os  envío  un 
cupón  cumplimentado  para  que  lo  publi¬ 
quéis,  si  os  es  posible. 

Si  existe  alguna  pega  o  problema  con¬ 
migo,  me  gustaría  saber  de  qué  se  trata, 
pues  he  enviado  varias  cartas  para  anun¬ 
cios,  carta  blanca,  etc...  y  no  he  recibido 
respuesta  a  ellas. 


Antonio  Galcerán  Gallifa. 
C/  Oro,  19,  2 Q  T. 
08012  Barcelona. 


Debido  a  la  avalancha  de  contactos  y 
anuncios  para  mercadillo,  recibidos  en  los 
últimos  meses,  nos  hemos  visto  obligados  a 
retrasar  la  aparición  de  algunos  de  ellos. 
Además,  y  esto  es  realmente  más  dramático 
de  lo  que  suponen  muchos  lectores,  el  des¬ 
afortunado  funcionamiento  del  servidio  de 
Correos  ha  provocado  unos  retrasos  impre¬ 
sionantes,  aparte  de  las  cartas  que  simple¬ 
mente  han  desaparecido. 

Este  lector  posee  un  Commodore  64  con 
unidad  de  disco.  Y  está  muy  interesado  en 
contactar  con  otros  amigos  commodorianos. 
Esperamos  que  tenga  suerte. 

Respecto  a  los  programas,  ahora  todos  se 
constestan  al  ser  devueltos. 

GRAFICOS  Y  SPRITES 

1.  He  leído  que  el  modo  multicolor  se 
activa  y  desactiva  para  cada  posición  de  la 
pantalla,  lo  que  permite  mezclarlo  con  gráficos 
standard  de  alta  resolución.  ¿Cómo  se  hace 
esto? 

2.  En  juegos  como  Gauntlet,  en  una  misma 
pantalla  aparecen  más  de  8  sprites  ¿cómo  es 
posible,  si  sólo  se  pueden  visualizar  8  sprites 
a  la  vez? 

3.  Algunos  sprites  adoptan  varias  posturas: 
de  espalda,  de  frente,  saltando,  agachado, 
etc.  ¿Cada  una  es  un  sprite  distinto?  Si  no  lo 
son,  ¿cómo  lo  hacen? 

4.  Según  he  leído,  la  línea  POKE 
52,48:  POKE  56,58  reduce  la  memoria  para 
programas  Basic,  ¿cómo  lo  hace? 

Alfonso  Holguin  Prior 
Avda.  del  Generalísimo,  43-4- A 
28923  Alcor cón  (Madrid) 

1.  El  modo  multicolor  (en  alta  o  baja 
resolución)  no  es  independiente  para  cada 
punto  de  la  pantalla,  sino  que  es  común  para 
todos  los  caracteres.  Se  activa  en  el  bit  6  de 
la  posición  53264,  y  los  colores  que  se  definen 
están  entre  53282  y  53284. 

2.  Existe  la  posibilidad  de  tener  en  pantalla 
más  de  8  sprites  a  la  vez,  utilizando  desde 
código  máquina  las  llamadas  “interrupciones 
por  ráster”.  En  Commodore  World  hemos 
hablado  sobre  este  sistema  en  los  artículos 
“64  Sprites”  (número  26)  y  “Sean  Master” 
(número  41).  En  Gauntlet  no  se  utilizan  las 
interrupciones  por  ráster:  la  mayoría  de  los 
personajes  (los  monstruos  sobre  todo)  no  son 
sprites,  sino  caracteres. 

3.  El  sprite  como  tal  sigue  siendo  el  mismo, 
pero  lo  que  cambia  son  sus  datos  (el  dibujo). 
Estos  datos  pueden  estar  en  cualquier  lugar 
de  la  memoria  del  ordenador,  y  se  utilizan  las 
posiciones  2040-2047  (una  para  cada  sprite) 
para  indicar  en  qué  “banco”  están  esos  datos. 
Los  “bancos”  son  bloques  de  64  bytes  en  los 
que  están  los  dibujos  de  los  sprites,  definidos 
bit  a  bit.  Con  un  simple  POKE  a  las  posicio¬ 
nes  2040-2047  puedes  cambiar  la  apariencia 
de  los  sprites,  y  conseguir  de  este  modo  un 
efecto  de  animación. 

4.  La  zona  de  memoria  normalmente  re¬ 
servada  para  los  programas  Basic  va  desde 
2064  hasta  40960  (38Ks  más  o  menos).  El 
Basic  almacena  estas  posiciones  en  dos 
punteros  de  la  memoria:  51/52  (final  progra¬ 
mas)  y  55// 56  (final  de  Basic).  Al  bajar  estos 
punteros  a  12288  (48*256),  con  los  POKEs 
seguidos  de  NEW  o  CLR,  evitas  que  el 
ordenador  escriba  datos  entre  12288  y  40960, 
una  buena  zona  para  sprites,  gráficos  y 
programas  de  código  máquina.  Naturalmente, 
te  quedas  solo  con  lOKs  para  Basic. 


Commodore  World  /51 


MCC  PASCAL 


Ordenador:  Amiga . 

Fabricante  y  distribuidor:  Metacomco. 

26  Portland  Square. 

Bristol. 

BS2  8RZ  Inglaterra. 

Precio:  a  consultar. 

El  Pascal,  uno  de  los  lenguajes  más  conocidos  de  los 
programadores  que  se  inician  en  el  mundo  de  la 
informática,  está  ahora  disponible  también  para  el 
Amiga,  gracias  a  una  versión  que  Metacomco,  casa 
inglesa,  ha  desarrollado  para  ordenadores  con  el  microproce¬ 
sador  68000. 

Al  contrario  que  los  demás  programas  para  Amiga,  este 
compilador  de  Pascal  no  es  nada  “espectacular”  Es  decir,  que 
no  tiene  gráficos,  ni  ventanas,  ni  iconos,  ni  vocecillas  que 
hablan  mientras  uno  está  tecleando,  ni  ninguna  de  esas  cosas 
tan  habituales  en  este  ordenador.  Se  trata  de  un  simple 
compilador  que  funciona  desde  el  CL1,  y  que  lo  único  que 
hace  es  convertir  un  fichero  ASCII  (el  programa  en  Pascal) 
a  un  código  ejecutable  directamente  por  el  ordenador. 

Para  escribir  los  programas  hace  falta  un  editor  de  texto, 
como  el  ED  o  el  EDIT  ((ambos  ineludios  en  el  Workbench). 
También  puede  utilizarse  el  Notepad,  el  Micro-Emacs  (que 
están  en  el  disco  Extras),  WordPerfect  o  cualquier  otro  tipo 
de  procesador  de  texto  que  permita  grabar  el  fichero  de  datos 
como  ASCII  estándar. 

Para  utilizar  el  compilador,  basta  dar  un  comando: 
PASCAL  (nombre. pas)  TO  (nombre. obj).  Esto  crea  un 
fichero  “objeto”,  que  es  el  equivalente  en  código  máquina  del 
listado  en  Pascal.  Este  fichero  después  hay  que  “linkarlo” 
(enlazarlo)  con  las  rutinas  de  las  librerías,  es  decir,  las  rutinas 
en  c.m.  necesarias  para  ejecutar  cada  una  de  las  instrucciones. 
Este  fichero  después  puede  ejecutarse  directamente  con  sólo 
escribir  su  nombre  desde  el  CLI. 

Dentro  de  lo  que  son  las  características  particulares  de 
lenguajes  Pascal  no  hay  mucho  que  decir,  pues  casi  todas  las 
versiones  de  estos  lenguajes  para  cualquier  ordenador  son  muy 
similares.  Salvo  detalles  como  la  cantidad  de  memoria,  y  el 
rango  permitido  para  los  números  reales  y  enteros,  el  resto  es 
estándar:  declaración  de  variables,  tipos  e  identificadores; 
caracteres  especiales  y  de  control,  procedimientos  y  funciones, 
tipos  estructurados  (arrays,  record,  etc.),  ficheros  de  entrada/ salida 
y  todo  lo  demás.  Lo  que  está  claro  es  que  si  sabes  programar 
en  Pascal,  no  tendrás  ninguna  dificultad 
para  hacerlo  con  este  compilador. 

El  único  inconveniente,  y  esto  lo  reco-  co 
noce  pronto  cualquiera  que  esté  acos¬ 
tumbrado,  por  ejemplo,  al  TurboPascal, 
es  el  auténtico  suplicio  que  supone  tener 
que  estar  pasando  de  un  editor  de  líneas, 
donde  está  el  programa  en  Pascal,  al 
compilador,  para  probar  el  programa.  El  4  - 

tiempo  que  se  pierde  en  grabar  y  salir,  Wt--  fi*  q  * 
cambiar  de  disco,  arrancar  el  compilador, 

“linkar”  el  programa,  y  finalmente  ^  SHyl 

probarlo,  para  después  volver  otra  vez  al 

editor,  es  una  auténtica  pega.  Es  posible 

que  en  futuras  versiones  este  aspecto  sea 

mejorado,  para  ganar  velocidad. 

El  manual  del  MCC  PASCAL  68000 
es  muy  completo,  e  incluye  una  intro-  A* 
ducción  al  lenguaje  Pascal,  la  descripción  üi^l 
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detallada  de  todas  °  lililí 

sus  instrucciones,  \  A  c  |  JCav\ 

los  tipos  de  identi-  AJHí  e 

ficadores,  los  co-  Uwdm  e  1/ 1  'm! 

mandos  de  entra-  °  (  l  | 

da/salida,  manejo  V  *¡ 

de  ficheros,  erro-  \ 

res,  y  las  “exten-  í  ^  Vy  | 

siones”  añadidas  f  _ 

en  la  versión  de  1 

Amiga  sobre  el  ^ ^ 

Pascal  estándar  7 

ISO  735 1  Por  úl- 

timo,  en  los  apen-  ^  ^ 

dices  se  incluye  . . _ . . -  - 

documentación  so-  • '  • . : 

bre  el  manejo  del  compilador  y  el  link,  y  se  explica  cómo 
pueden  ejecutarse  los  programas.  La  versión  que  Metacomco 
nos  ha  enviado  para  este  banco  de  pruebas  está  completamente 
en  inglés,  tanto  el  programa  como  el  manual,  y  es  muy  posible 
que  no  sean  traducidos  a  menos  que  algún  distribuidor  se 
anime  a  importarlo.  ■ 


SUPERCHIP  COPIADOR  Y  CHIP  1571 


Ordenador:  C-128. 

Fabricante:  Utilities  Unlimited. 

Distribuidor:  Cimex. 

C /  Calabria ,  23  entlo.  4Q. 

08015  Barcelona. 

Tel  :  (93)  424  34  22. 

Precios:  Chip  copiador,  4.000  pías. 

Chip  1571 ,  4.000  pías. 

El  Superchip  Copiador  podría  ser  una  clara  demostración 
de  lo  que  avanza  la  tecnología.  En  una  minúscula 
pastillita  de  silicio  llena  de  patas  están  almacenados  32 
Ks  de  programas,  entre  ellos  dos  copiadores,  un 
terminal  de  modem,  un  editor  de  pistas  y  una  rutina  hardeopy 
de  volcado  de  pantalla. 

El  chip  se  inserta  en  uno  de  los  zócalos  vacíos  de  expansión 
que  hay  en  el  interior  del  C-128  (no  es  nada  difícil).  Los 
programas  se  sitúan  en  el  banco  4  de  la  memoria  y  se  puede 
acceder  a  ellos  con  un  simple  SYS  a  la  dirección  correspon¬ 
diente.  Al  arrancar  el  ordenador  las  teclas  de  función  quedan 

. . . . redefinidas  de  tal  modo  que  a  cada  una 

>  *  de  ellas  le  corresponde  uno  de  los  pro- 

t  V  _  gramas  incluidos  en  el  chip. 

£  B  El  primer  programa  es  un  copiador 

^  nibbler  de  discos.  Este  tipo  de  copiado- 
■  res,  a  diferencia  de  los  convencionales, 
sacan  copias  exactas  de  los  discos, 
incluyendo  errores,  medias-pistas,  sin- 
Q  cronismos,  etc.  Sirven  para  copiar  todo 
tipo  de  discos,  aunque  estén  protegidos 
(  y  (aun  así,  no  funciona  con  todos).  Incluye 

opciones  para  cambiar  de  una  a  dos 
-  '/>  unidades,  un  detector  de  densidad  y  la 

■Vjflfi  B  posibilidad  de  ver  el  directorio  de  los 
discos  origen/ destino. 

Por  otro  lado,  el  copiador  de  ficheros 
es  una  versión  adaptada  del  famoso  File 
Copy  o  Turbocopy.  Se  marcan  los  fi- 
BBlllllM^  cheros  que  se  van  a  copiar  respondiendo 


“Yes”  cuando  aparece  su  nombre  en  el  directorio,  y  después 
la  unidad  los  lee  uno  a  uno  y  los  copia  en  otro  disco.  Este 
utilitario  es  muy  práctico,  sobre  todo  para  copiar  ficheros 
cortos. 

El  terminal  de  modem  es  otro  de  los  programas  incluidos, 
y  permite  utilizar  algunos  de  los  módems  existentes  en  el 
mercado,  como  el  de  Commodore  o  los  compatibles  Hayes. 
Puede  emitir  y  recibir  ficheros,  almacenarlos  en  disco  y 
realizar  todas  las  funciones  de  un  terminal. 

Otro  de  los  programas  es  el  editor  de  pistas  y  sectores,  muy 
parecido  al  Sector  Editor  del  disco  test/demo  o  al  conocido 
Di-Sector.  Permite  ver  por  pantalla  el  contenido  de  todos  los 
sectores  del  disco,  modificarlos  y  volverlos  a  grabar.  Con  esto 
se  puede  alterar  la  pista  del  directorio,  las  direcciones  de  carga 
de  los  programas,  proteger  ficheros  y  muchas  cosas  más. 

El  volcado  de  pantalla,  por  último,  sirve  para  obtener  un 
hardcopy  en  alta  resolución  de  la  pantalla  gráfica  del  C-128. 
Funciona  con  la  mayoría  de  las  impresoras,  aunque  en  las 
instrucciones  no  se  indica  cuáles  son  estas  impresoras. 

Por  otro  lado,  el  Chip  1571  es  una  nueva  versión  de  la 
ROM  del  DOS  de  la  1571,  en  la  que  se  ha  corregido  el  famoso 
“bug”  que  hace  que  al  leer  discos  formateados  por  una  sola 
cara  desde  un  C-128  en  modo  1571  la  unidad  pierda  20  ó  30 
segundos  intentando  leer  el  directorio  de  la  otra  cara  del 
disco.  Para  instalarlo  sólo  hace  falta  desmontar  la  unidad  y 
sustituirlo  por  el  original,  como  con  el  Superchip  Copiador. 

Todos  los  programas  del  Superchip  Copiador  están  en 
inglés,  aunque  son  tan  sencillos  de  utilizar  que  casi  no 
necesitan  traducción.  El  manual  es,  sencillamente,  escaso:  tres 
cuartillas  que  no  informan  sino  del  nombre  de  los  programas 
y  un  pequeño  comentario  de  lo  que  hacen.  Lo  más  gracioso 
son  las  instrucciones  del  terminal  modem:  “se  suministran 
aparte,  con  la  compra  del  modem”...  Pese  a  este  pequeño 
detalle  el  chip  es  muy  recomendable,  pues  permite  tener  un 
buen  número  de  programas  útiles  preparados  en  la  memoria 
y  evita  perder  tiempo  cargándolos  desde  disco.  ■ 


ESTADISTICA 


Ordenador:  C-64 ,  disco. 

Fabricante  y  distribuidor:  Cimex  Electrónica. 

Calabria ,  23  Entlo.  4o. 

08015  Barcelona. 

Tel.:  (93)  424  34  22. 

Precio:  15.000  pías. 

La  facilidad  que  los  ordenadores  tienen  para  manejar 
datos  numéricos  a  gran  velocidad  hace  que  sean  las 
herramientas  más  adecuadas  para  la  realización  de 
cálculos  estadísticos  con  grandes  conjuntos  de  datos. 
Con  el  programa  adecuado  (y  para  C-64  hay  pocos)  hasta  uno 
de  los  pequeños  Commodore  puede  convertirse  en  una 
máquina-de-triturar-números  que  maneje  grandes  cantidades 
de  datos  con  facilidad  y  rapidez. 

El  programa  “Estadística  64.5”  comercializado  por  Cimex 
es  una  muestra  de  lo  completo  que  puede  llegar  a  ser  un 
programa  de  este  tipo.  Aunque  hay  algunos  aspectos  en  los 
que  flojea  un  poco  (gráficos,  salida  por  impresora,  presentación 
en  pantalla),  realiza  su  función  a  la  perfección,  y  tiene  un 
número  de  funciones  tan  enorme,  que  enumerarlas  aquí  sería 
casi  imposible. 

El  programa  funciona  por  menús,  lo  que  permite  un 


Que  no  le  caiga 
bln' 


a 


o 


Entre  la  toma  de  corriente 
y  el  ordenador 
hace  falta 

protección 


La  informática  es  un  gran  avance  y 
prácticamente  todos,  empresas, 
organismos  y  profesionales,  hemos 
acudido  al  ordenador  pero,  una 
simple  oscilación  de  corriente  que 


hasta  hoy  prácticamente  no  nos 
afectaba,  al  ordenador  puede 
causarle  un  perjuicio  enorme;  desde 
perder  toda  la  información,  hasta 
producir  errores  absolutamente 
ilógicos. 

La  solución  Merlin  Gerin  resuelve 
absolutamente  el  problema,  a  un 
coste  razonable  y  aportando  total 
seguridad. 


la 

solución 
MERLIN 
GERIN 


Solicite  información  sin  compromiso 
y  podrá  disfrutar  plenamente  de  las 
ventajas  de  su  ordenador. 
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dominio  de  la  energía  eléctrica. 


MERLIN  GERIN  Plza.  Dr.  Letamendi,  5-7  -  Tel.  254  02  00  x 

08007  BARCELONA  \ 

X 

Señores:  I 

Deseo  recibir  información  sobre  las  soluciones  MERLIN  GERIN  de  protección 
y  alimentación  ininterrumpida  I 

EMPRESA .  I 

Persona  a  contactar .  | 

Dirección . I 

Teléfono . Población  . 

- 
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manejo  sencillo  para  cualquiera  no-programador.  Las  siete 
opciones  del  menú  principal  se  dividen  en  otros  muchos 
apartados.  Estas  son  las  opciones  y  lo  que  hace  cada  una  de 
ellas: 

Tratamiento  de  datos.  Se  utiliza  para  introducir  los  datos, 
agruparlos  por  subjuntos  (para  tipos  de  datos  diferentes), 
concatenar  grupos  de  datos  y  otras  opciones  similares.  Los 
datos  se  graban  en  ficheros  en  un  disco  de  trabajo  que  hay 
que  preparar  previamente.  Estos  datos  quedan  disponibles 
para  ser  utilizados  en  cualquier  momento.  Esta  opción  debe 
utilizarse,  naturalmente,  antes  que  las  demás. 

Tabla  de  frecuencias.  Permite  obtener  los  datos  de  frecuencia 
absoluta,  relativa  y  moda,  con  variables  discretas  o  continuas. 
Al  igual  que  en  las  otras  opciones,  la  salida  de  los  resultados 
se  puede  obtener  por  pantalla  o  por  impresora. 

Representaciones  gráficas.  Este  es  tal  vez  el  aspecto  más 
flojo  del  paquete  en  su  conjunto,  por  la  calidad  de  los 
gráficos.  Estos  se  pueden  obtener  como  diagramas  de  barras, 
columnas,  tarta,  histogramas  y  diagramas  de  dispersión  (nube  de 
puntos),  todas  ellas  con  algunas  variaciones  ajustables  previa¬ 
mente.  Los  datos  se  pueden  tomar  de  un  fichero  o  introducirse 
manualmente.  La  salida  se  realiza  en  baja  resolución,  es  decir, 
sobre  la  pantalla  de  40  x  25  y  con  el  juego  de  caracteres  gráficos 
del  ASCII  Commodore  (rombos,  cuadraditos,  etc.).  Para 
obtener  un  hardcopy  por  la  impresora  es  necesario  conectar 
algún  cartucho  tipo  “freezer”,  como  el  Final  Cartridge,  que 
realice  la  operación. 

Prueba  de  normalidad  de  Kolmogorov.  Esta  opción 
permite  determinar  si  los  valores  de  una  variables  siguen  una 
distribución  normal.  Es  una  de  las  opciones  “avanzadas”, 
como  otras  muchas  de  las  de  este  paquete,  que  no  suelen  verse 
en  programas  de  este  tipo. 

Tamaño  de  la  muestra,  riesgo  y  precisión.  Permite  calcular 
el  número  de  elementos  para  un  sondeo  y  la  precisión  de  éste. 

Tabla  de  números  aleatorios.  Genera  una  lista  de  números 
aleatorios  que  puede  grabarse  en  un  fichero  y  utilizarse 
después  como  datos  o  parte  de  un  cálculo  estadístico  más 
complejo. 

Cálculo  estadístico.  Esta  es  la  opción  que  más  posibilidades 
tiene.  Sobre  un  conjunto  de  variables  permite  obtener  datos 
estadísticos  de  muchos  tipos,  como  los  “parámetros  básicos”: 
media  aritmética,  media  de  error,  percentiles,  etc.  También  se 
pueden  obtener  comparación  de  medias,  correlaciones 
(lineales,  exponenciales,  logarítmicas...),  análisis  de  la 
varianza  (unifactorial,  bifactorial,  Kruskal-Wallis),  prueba 
exacta  de  Fisher,  CH I-cuadrado  y  valoraciones  discriminativas 
y  predictivas  (sensibilidad,  eficacia,  especificidad...).  Algunas 
de  ellas  tienen  múltiples  formas  de  funcionamiento,  tanto  en 
la  forma  de  entrada  de  los  datos  como  en  la  salida  o  los 
cálculos  que  realizan. 

El  paquete  completo  viene  presentado  en  dos  discos,  en  los 
que  están  incluidos  todos  los  subprogramas  que  realizan  las 
opciones  del  programa  principal.  La  velocidad  de  carga  está 
bien,  pero  se  pueden  conectar  dos  unidades  para  trabajar 
simultáneamente  con  el  disco  de  programas  y  el  disco  de 
datos,  lo  que  simplifica  el  manejo  y  aumenta  la  velocidad. 

En  cuanto  al  manual,  de  muy  buena  presentación,  es 
bastante  completo  (unas  50  páginas)  e  incluye  toda  la 
información  necesaria  para  hacer  funcionar  el  programa,  así 
como  detalles  de  cada  una  de  sus  funciones  y  volcados  de 
pantalla  con  ejemplos. 

“Estadística  64.5”  es  sin  duda  uno  de  los  programas  más 
completos  sobre  estadísticas  que  hay  para  el  C-64.  Tiene  la 
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ventaja  de  estar  completamente  en  castellano,  tanto  el 
programa  como  el  manual  y,  salvo  en  el  aspecto  gráfico,  tiene 
una  gran  calidad  en  su  conjunto.  ■ 


JOYSTICK  MAGNUM 


Además  de  dedicarse  a  la  producción  de  juegos,  Master- 
tronic  ha  lanzado  al  mercado  este  nuevo  joystick, 
llamado  MAGNUM.  Algunas  de  sus  características  se 
pueden  ver  a  simple  vista:  el  cable  es  más  largo  de  lo 
normal  (unos  dos  metros)  y  la  forma  anatómica  de  la  palanca 
es  sumamente  espectacular,  como  la  palanca  de  mandos  de  un 
avión.  Al  ser  perfectamente  simétrico,  puede  ser  utilizado 
indistintamente  por  jugadores  diestros  o  zurdos. 

Como  todos  los  joysticks  modernos,  está  equipado  con 
microwitches,  que  proporcionan  una  respuesta  más  rápida  y 
fiable  a  los  movimientos  de  la  palanca  y  del  botón  de  disparo. 


METEDURAS  DE  PATA 


En  el  programa  PIANOLA,  del  número  44,  se  colaron 
dos  minúsculos  errores  en  el  listado  del  programa  principal. 
En  la  línea  3550  la  variable  LS  debe  valer  2047,  no  20407, 
y  en  la  línea  5740,  la  variable  L1  es  en  realidad  LI.  Estas 
son  las  línesa  correctas: 

PROGRAMA!  PIANOLA 

3550  INPUT" CORTE  (0-2047) " | A*i LI =0!  .191 
LS*2047«  BOSUB50001 P0KE54294 , INT ( A/2 
56) 

5740  Al =A i INPUT" C2CRSRDD C2CRSRRDFIN  .22 
i  M  |  A*  i  L I  *  1 1  LS**N  ( J )  i  GOSUB5000 :  DC=A+2 
*40961 A-Al 

Por  otro  lado,  en  el  programa  BIORRITMOS  para  el 
Amiga  del  número  45,  no  se  ve  demasiado  bien  un  “ — ” 
que  hay  entre  los  paréntesis  del  comando  WINDOW  casi 
al  principio  del  programa.  Si  no  se  pone  este  guión,  esa 
línea  da  SYNTAX  ERROR. 


Duque  de  Liria,  70  - 19,  Ia 


46160  Liria  (Valencia) 

The  Final  Cartridge  II  ¡¡¡Liquidación!!! .  6.900  Ptas. 

Kit  alineamiento  cabezal  Robtek .  2.350  Ptas. 

Joystick  Quicksoot  II  Plus _  2.590  Ptas. 

Joystick  Profesional . . . . . .  3.900  Ptas. 

Lotería  Primitiva  I  (Disco' . .  2.390  Ptas. 

Game  Maker  (Hacedor  dt  Juegos)  (Disco) .  3.995  Ptas. 

Lápiz  Optico  “Trojan”  C-64/128  .  3.900  Ptas. 

Ratón  Cheese  Mouse  (Cinta  o  Disco) .  9.900  Ptas. 

Tableta  gráfica  Koala  Pad . .  14.900  Ptas. 
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INORMA  sa 

Reparación  y 
mantenimiento 
de  ordenadores 

Dr.  Roux,  95  (bajos) 

Tel.  (93)  205  32  69 
08017  Barcelona 


ELECTROAFICION 

•  Ordenadores  de  Gestión 
PC/XT/AT 

•  Commodore  C-64,  C-128,  AMIGA 

•  Accesorios  de  Informática 

•  Software  Gestión.  Juegos 

•  Radioaficionados 

•  Comunicaciones 

•  Reparaciones  COMMODORE 

Villarroel,  104 

08011  Barcelona  -  Tels.:  253  76  00-09 
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DE  LOS  USUARIOS 
DE  LOS 

ORDENADORES 
PERSONALES 
Y  COMPATIBLES 


Commodore 
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SI  DESEA  RESERVAR  SUS 
MODULOS  EN  ESTA 
SECCION  CONTACTE  CON 
GLORIA  MONTALVO 

TELF.:  (91)  419  40  14 


Suscríbase  a: 

COMUNICACION^ 

Si  lo  que  desea 
son  SOLUCIONES  a 
sus  problemas  de 
comunicación  y 
transmisión  de  datos 


TEX-HARD,  S.A. 

AMIGA  500  Y  2000 
SOFTWARE  AMIGA 
PC’S  COMMODORE 
IMPRESORAS 
ACCESORIOS 
PERIFERICOS 

C/  Corazón  de  María,  9 

Tels.:  416  95  62  -  416  96  12. 28002  Madrid. 


DEFOREST 
microinf  ormática 


DISTRIBUIDOR  OFICIAL  COMMODORE 

DISPONEMOS  DE  TODA  LA  GAMA 
DE  ORDENADORES,  IMPRESORAS 
Y  PERIFERICOS  COMMODORE. 
DISPONEMOS  DE  SOFT  EN  GENERAL. 

SOLICITE  INFORMACION  POR  CORREO 


BARCELONA 
C/Viladomat,  105.^423  72  29 


* 


é 


AREVALO  MICROSISTEMAS,  S.L. 

Travesera  de  Alfonso  El  Batallador,  16  -  Pamplona  -  Tel.:  27  64  04 


VENTA-REPARACION 


*  VENTA  •  ORDENADORES  PERSONALES  —  MSX  -  SANYO 

—  MSX  -  Spectravídeo 
—  ZX  -  Spectrum  plus 
—  Commodore  64/128 


*  REPARACION 


•  COMPA  TIBLES  PC 

•  COMPONENTES  ELECTRONICOS 

•  TODA  CLASE  ORDENADORES  PERSONALES 

•  TODA  CLASE  COMPATIBLES  PC 
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Para  hacer  tus  pedidos,  fotocopia  esta  página  (o  envianos  el  pedido  por  carta)  y  marca  lo  que  quieras  con  una  cruz.  Suma  tú 

mismo  el  importe  y  envíanos  un  cheque  o  giro  por  el  total. 


humeros timamos 

8  I  1 1  i  12  I  13  |  14  I  15  I  16  1 17  ¡  18  I  19  I  20  I  Precios  de  los  ejemplares: 

21  22  23  24  25  26  27  28  29  10“  ¥  *  Has,a  el  número  32  a  300  P‘as- 

32  33  34  35  36  37  38  39  40  41  42  !  “*¡  “  43.a.  375  P‘aS' 

— - •  Del  44  en  adelante .  400  ptas. 

43  44  45  t  r  _ 

— -J - - - - - - - - -  Los  números  que  no  figuran  se  encuentran  agotados. 

(Señala  con  un  círculo  los  números  que  quieras) 

D  Número  atrasado  +  disco  del  mismo  número  .  1.950  ptas. 

□  Oferta:  7  números  atrasados  +  tapas  de  regalo  2.345  ptas. 

D  Tapas  de  encuadernación  (para  12  números)  .  795  ptas. 

EJEMPLARES  ATRASADOS  DE  “CUIB  C0MM0D0RE”  (s.„icio  *  «****.> 

[~Q~  1 _ 2 _ 3 _ 4 _ 5 _ 6_T\  □  Ejemplar  Club  Commodore  .  370  ptas. 
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n_ 

_12_ 

13 

14 
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(Señala  con  un  círculo  los  números  que  quieras) 

BIBLIOTECA  COMMODORE  WORLD 

D  Volumen  1:  Cursillo  de  código  máquina .  250  ptas. 

D  Volumen  2:  Especial  Utilidades  .  500  ptas. 

D  Disco  Especial  Utilidades  .  1.750  ptas. 

D  Oferta:  Especial  Utilidades  +  Disco  1.990  ptas. 


DISCOS  DEL  MES 

Estos  discos  contienen  todos  los  programas  de  la  revista  del  mes  correspondiente,  incluyendo  (completos)  tanto  los  que  se  publican  en  varias 
partes  como  las  “mejoras”.  Se  suministra  gratuitamente  el  programa  “Datafile”  (versión  C-128)  que  contiene  el  “índice  Commodore  World”,  que 
se  actualiza  mes  a  mes. 
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19 

20 

21 

22 

23 

□  Disco  del  mes  1.750  ptas. 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

□  Oferta:  5  discos  del  mes  .  7.990  ptas. 

34 

35 

36 

yj_ 

38 

39 

40 

41 

42 

_43_ 

D  Suscripción  un  año  (11  discos)  +11  revistas  .  17.500  ptas. 

44 

45 

a  partir  del  número  |  | 

(Señala  con  un  círculo  los  discos  que  deseas  pedir) 

PROGRAMOTECA  COMMODORE  WORLD 

Estos  discos  incluyen  instrucciones  de  funcionamiento  para  todos  los  programas  que 
contienen: 

□  Superdisco  Aplicaciones  I  (dos  discos)  .  1.990  ptas. 

□  Superdisco  Juegos  .  1.375  ptas. 


/>>>  /y 

■  8*  ^  -V  .  -  ^  . 

vO’  ,0'  ./ 


SERVICIO  DE  CINTAS 

/  y  r 

Sólo  se  enviarán  cintas  con  los  programas  que  aparecen  listados  en  la  revista  (no  de  los  /  ^ 
comentados  ni  los  que  aparecen  en  las  páginas  de  publicidad).  No  se  sirven  pedidos  en  cinta 
de  programas  que  sólo  funcionen  en  disco.  / 

Nombre  del  programa .  /  ^ 

Publicado  en  el  número .  Modelo  de  ordenador .  /0^° 

□  Precio  por  cinta  . 1.150  ptas.  /  ^ 
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Todos  los  listados  que  se  publican  en 

Commodore  World  han  sido  cuidadosamente 
comprobados  en  el  modelo  correspondiente  de 
los  ordenadores  Commodore. 

Para  facilitar  su  edición  y  para  mejorar  la 
legibilidad  por  parte  del  usuario  se  les  ha  sometido 
a  ciertas  modificaciones  mediante  un  programa 
escrito  especialmente  para  ello.  Dado  que  los 
ordenadores  Commodore  utilizan  frecuentemente  las 
posibilidades  gráficas  del  teclado,  se  han  sustituido 
los  símbolos  gráficos,  así  como  movimientos  del 
cursor,  códigos  de  color,  etc.  por  equivalencias  entre 
corchetes  que  indican  la  secuencia  de  teclas  que  se 
debe  pulsar  para  obtener  dichos  caracteres. 

Ver  tabla  adjunta  con  dichas  equivalencias. 

El  resto  de  las  claves  constan  siempre  de  una  letra  o 
símbolo  precedidos  de  las  palabras  COMM,  SHIFT 
o  CTRL;  por  ejemplo  [COMM+]  o  [SHIFTA].  Esto 
indica  que  para  obtener  el  gráfico  hay  que  pulsar  a 
la  vez  la  tecla  COMMODORE  (la  de  abajo  a  la 
izquierda)  o  la  tecla  SHIFT  (cualquiera  de  ellas) 
junto  con  la  letra  o  símbolo  correspondiente,  en  este 
ejemplo  “+”  o  “A”. 

También  puede  aparecer  un  número  indicando 
cuántas  veces  hay  que  repetir  el  carácter. 

[7  CRSRR]  equivale  a  siete  cursores  a  la  derecha  y 
[3  SPC]  a  tres  pulsaciones  de  la  barra  espaciadora. 


Cómo  utilizar  la  suma  de  control 

Todos  los  listados  para  C-64  o  C-128  que  aparecen 
en  la  revista  llevan  una  suma  de  control  para  que  no 
te  equivoques  a  la  hora  de  teclearlos.  Para  poder 
utilizar  esta  suma  de  control  tendrás  que  teclear  el 
programa  que  aparece  aquí  listado.  Se  llama 
“Perfecto'’.  Cuando  lo  hayas  tecleado,  compruébalo  y 
sálvalo  en  disco  o  cinta. 

Cada  vez  que  vayas  a  teclear  uno  de  los  programas 
que  aparecen  en  Commodore  World  debes  cargar 


CLAVE 

EQUIVALENCIA 

CRSRD 

CURSOR  ABAJO  (SIN  SHIFT) 

CRSRU 

CURSOR  ARRIBA  (CON  SHIFT) 

CRSRR 

CURSOR  DERECHA  (SIN  SHIFT) 

CRSRL 

CURSOR  IZQUIERDA  (CON  SHIFT) 

HOME 

CLR/HOME  SIN  SHIFT 

CLR 

CLR,  HOME  CON  SHIFT 

SPC 

BARRA  ESPACIADORA 

DEL 

INST/DEL  Y  SHIFT  +  INST/DEL 

INST 

INST  DEL  CON  SHIFT 

BLK  A  YEL 

COLORES:  CONTROL  +  NUMERO 

RVS  ON 

CONTROL  +  9 

RVS  OFF 

CONTROL  +  0 

F1  A  F8 

TECLAS  DE  FUNCION 

FLCH  ARRIBA  FLECHA  ARRIBA 

FLCH  IZQ 

FLECHA  A  LA  IZQUIERDA 

PI 

PI  (FLECHA  ARRIBA  CON  SHIFT) 

LIBRA 

LIBRA 

PARA  C-128 

BELL 

CONTROL  +  G 

TAB 

TAB  0  CONTROL  T  I 

LFEED 

LINE  FEED  0  CONTROL  +  J 

antes  el  programa  corrector.  Apunta  los  dos  valores 
SYS  que  aparezcan  en  la  pantalla,  pues  te  servirán 
para  conectar  o  desconectar  el  programa  cuando 
quieras. 

Verás  que  a  la  derecha  de  todos  los  listados 
aparece  un  punto  seguido  de  un  número.  Eso  no 
debes  teclearlo,  pues  en  tal  caso  el  programa  no  te 
funcionaría.  Comienza  a  teclear  el  listado 
normalmente.  La  única  diferencia  que  notarás  es  que 
al  pulsar  RETURN  aparecerá  un  asterisco  seguido  de 


BOLETIN  DE  SUSCRIPCION  -  Commodore  World 


1 

□  NUEVA  SUSCRIPCION 

□  RENOVACION 

DESEO  SUSCRIBIRME  A 

1 

1 

NOMBRE  . 

DIRECCION  . 

.  EDAD  . 

COMMODORE  WORLD 

POR  UN  AÑO  AL  PRECIO 

1 

1 

DE  3.080  PTAS.  DICHA  SUS- 

| 

1 

POBLACION . 

. ( . 

...)  CRIPCION  ME  DA  DERE- 

1 

PROVINCIA  . 

.  TELEF . 

CHO  A  RECIBIR  ONCE  NU- 

1 

MARCA  Y  MODELO  DEL  ORDENADOR  . 

MEROS  ANUALES. 

1 

1 

Deseo  iniciar  la  suscripción  con  el  n^  . 

Fecha  caducidad  (Tarjeta) . 

.  Tarjeta  VISA  □ 

MASTERCARD  □ 
tarjeta 

Adjunto  cheque  de  3.080  pesetas . 

Envío  giro  . por  3.080  pesetas  .... 

Reembolso  más  gastos  del  mismo 

lllll  LLL 

..  □ 

X]  rrm  rrm 

Firma: 

1 

al  recibir  el  primer  nQ  de  la  suscripción  □ 

i 

un  número  de  una,  dos  o  tres  cifras  debajo  del 
cursor.  Es  la  suma  de  control.  Compárala  con  el 
número  que  aparece  en  la  parte  derecha  del  listado. 

Si  es  el  mismo,  puedes  seguir  tecleando,  pero  si  es 
diferente  deberás  buscar  errores  en  la  línea  que 
acabes  de  introducir.  Observa  sobre  todo  los 
siguientes  puntos: 

•  Los  espacios  sólo  se  tienen  en  cuenta  si  van 
entre  comillas.  Los  demás  los  puedes  omitir.  Si  tienes 
problemas  con  alguna  línea  tecléala  tal  y  como 
aparece  en  el  listado,  ¡teniendo  en  cuenta  las  claves, 
por  supuesto! 

•  Los  comandos  Basic  se  pueden  abreviar,  de 
modo  que  puedes  poner  ?  en  vez  de  PRINT  o 
P<SHIFT  0>  en  vez  de  POKE. 

•  También  se  tiene  en  cuenta  el  número  de  línea. 
Si  por  error  introduces  la  línea  100  en  vez  de  la  1000, 
por  ejemplo,  tendrás  que  teclear  nuevamente  la  línea 
100  (que  se  habrá  borrado)  y  a  continuación  la  1000. 


1  REM  "PtRFtL  I U"  .US 

2  REM  POR  JAMES  E.  BORDEN,  RUN  EEUU  .96 

3  REM  <0  1986  COMMODORE  WORLD  .157 

4  :  . 236 

5  POKE56 , PEEK ( 56 ) - 1 : P0KE52 , PEEK.  <  56 )  .119 

6  CLR:PG=PEEk <56 > :ML=PG* 256+60  .232 

7  s  .239 

8  P=ML : L=24  .216 

9  S=0: F0RI=0T06: READA: IFA=-1THEN16  .59 

10  I FA<  OORA  >255THEN 1 4  .146 

11  POKEP+I ,A:S=S+A:NEXT  .81 

12  READSC: IFS< >SCTHEN1 4  .250 

L=L+1 : P=P+7 : G0T09  .97 

14  PRINT "ERROR  EN  DATAS  L INEA" ; L: EN  .60 
D 

15  :  .247 

L6  POKEML+4 ,PG: P0KEML+10,PG  .60 

17  P0KEML+16,PG: POKEML+20.PG  .221 

18  POKEML+32 , PG: POKEML+38 , PG  .110 

19  POKEML  +  141, PG  .97 

20  SYSML : PR I NT " C  CRSRD  3  C WHT D CORRE CT  .98 
OR  ACTIVADO 

21  PRINT"  SYS " ML " =CONECTAR  .127 

22  PRINT"  SYS " ML+30 " =DESCONECT AR C CO  .122 
MM7D 

23  :  . 255 

24  DATA173,5,3,201 ,3,208, 1 ,594  .22 

25  DAT A96, 141 , 105,3, 173,4,3,525  .181 

26  DATA141 , 104,3, 162, 103, 160,3,676  .214 

27  DATA1 42, 4, 3, 140,5,3,96,393  .177 

28  DATA234, 234, 173, 104,3, 141 ,4,893  .96 

29  DATA3, 173, 105,3, 141 ,5,3,433  .177 

30  DATA96, 32, 124, 165, 132, 1 1 , 162,722  .18 

31  DATAO, 142,240,3, 142,241 ,3,771  .87 

32  DATA189,0,2,240,51 ,201 ,32,715  . 16é 

33  DATA208, 4, 164,212,240,40,201 , 106  .177 
9 

34  DATA34,208,8, 72, 165,212,73,772  .146 

35  DATA1 , 133,212, 104,72,238,241 , 100  .237 
1 

36  DATA3, 173,241 ,3,41 ,7, 168,636  .142 

37  DATA 104 ,24,72,24,104,16,1, 345  . 225 

38  DATA56, 42, 136, 16,246, 109,240,845  .238 

39  DATA3, 141 ,240,3,232,208,200, 1027  .123 

40  DATA1 73, 240, 3, 24, 101 ,20,24,585  .72 

41  DATA101 ,21 , 141 ,240,3, 169,42,717  .49 

42  DATA32,210, 255, 169,0, 174,240, 108  .170 
O 

43  DATA3, 32, 205, 189, 162,4, 189,784  .83 

44  DAT A2 11,3, 32 ,210, 255 , 202 ,16, 929  .214 

45  DATA247, 164, 1 1 ,96, 145, 13,32,708  .87 

46  DAT A32 ,0,0, 0, 0, 0, 0, 32 ,  —  1  .146 


•  Si  quieres  modificar  alguna  línea  a  tu  gusto, 
obtén  primero  la  suma  de  control  correcta  y  luego 
modifícala. 

Si  por  alguna  razón  no  consigues  la  misma  suma 
de  control  que  aparece  en  el  listado,  prueba  a  borrar 
la  pantalla  y  teclear  la  línea  entera  de  nuevo.  Un 
artículo  completo  sobre  el  funcionamiento  de  este 
programa  apareció  en  el  número  23  de  Commodore 
World. 


1  REM  "PERFECTO"  VERSION  C-128 

.  197 

2  REM  POR  JAMES  E.  BORDEN,  RUN  EEUU 

.  96 

3  REM  <0  1986  COMMODORE  WORLD 

.  157 

4  : 

.  236 

5  P 

=5120 

:  L  =  1 8 

.  165 

6  S 

=0: FOR I =0T06: RE ADA: IFA=-1THEN13 

.  182 

7  IFA<00RA>255THEN1 1 

.205 

8  POKEP+ I , A: S=S+A: NEX1 

.78 

9  READSC 

:  IFSOSCTHEN1  1 

.53 

10 

L=L+ 1 

: P=P+7 : G0T06 

.222 

1  1 

PRINT 

"ERROR  EN  DATAS  LINEA" ; L: EN 

.57 

12 

. 

.  244 

13 

PR I  NT "t CRSRD D  C  YEL  3C0RRECT0R  ACT 

.  123 

1  VADO 

14 

PRINT 

"  SYS  5120  =CONECTAR 

.  234 

15 

PRINT 

"  SYS  5150  =DESCONECT  AR  C  COM 

.  171 

M63 

16 

SYS51 

20: NEW 

.  90 

17 

: 

.249 

18 

DATA 

173,5,3,201 ,20,208,1 ,611 

.23? 

19 

DATA 

96,141,45,20,173,4,3, 482 

.  79 

20 

DATA 

141,44,20,162,43,160,20, 590 

.230 

21 

DATA 

142,4,3,140,5,3,96, 393 

.  171 

22 

DATA 

234 , 234 ,173,44,20,141,4, 850 

.  48 

23 

DATA 

3,173,45,20,141,5,3, 390 

.255 

24 

DATA 

96,32,13,67,140, 255 ,19, 622 

.254 

25 

DATA 

162,0,142,252,19,142,253,97 

.  63 

26 

DATA 

19, 142 t254, 19, 189,0,2,625 

.  16 

27 

DATA 

201,32,240,8,201,48,144,874 

.221 

28 

DATA 

7,201,58,176,3, 232 , 208 , 885 

.  200 

29 

DATA 

238,189,0,2,240,54,201,924 

.71 

30 

DATA 

32 , 208 ,5,172, 254 ,19, 240 , 930 

.238 

31 

DATA 

42,201 ,34,208, 10,72, 173,740 

.  165 

32 

DATA 

254,19,73,1 , 141,254,19,761 

.92 

33 

DATA 

104,72, 238 , 253 ,19,173, 253 , 1 

.  109 

1  12 

34 

DATA 

19,41,7,168,104,24,72,435 

.244 

35 

DATA 

24,104,16,1,56,42,136, 379 

.  121 

36 

DATA 

16,246,109,252,19,141,252,1 

.  192 

035 

37 

DATA 

1 9 , 232 , 208 ,197,173, 252 ,19,1 

.  69 

100 

38 

DATA 

24,101,22,24,101,23,141 ,436 

.  204 

39 

DATA 

252 ,19,169,42,32,241,20, 775 

.  45 

40 

DATA 

32,188,20,160,2,185,185,772 

.  168 

41 

DATA 

20,32,241,20,136,16,247,712 

.  133 

42 

DATA 

165,116, 208 ,9,165,117, 208 , 9 

.  10 

88 

43 

DATA 

5,169,145,32,241,20,172, 784 

.  101 

44 

DATA 

255,19,96,13,32,32,162,609 

.200 

45 

DATA 

0,173, 252 ,19, 232 , 56 , 233 , 965 

.111 

46 

DATA 

100,176,250,105,100,202,240 

.  140 

,1173 

47 

DATA 

3,32,232,20,201 , 10,176,674 

.85 

48 

DATA 

5,205,252,19,240,15, 162,898 

.  154 

49 

DATA 

0,232,56,233,10, 16,250,797 

.  105 

50 

DATA 

24,105,10, 202 , 32 , 232 , 20 , 625 

.  168 

51 

DATA 

170,72,138,9,48,32,241,710 

.  117 

52 

DATA 

20,104,96,170,173,0,255,818 

.210 

53 

DATA 

72,169,0, 141,0,255,138,775 

.243 

54 

DATA 

32,210,255,104,141,0,255,99 

.238 

55 

1 

DATA 

96,49,49,25,255,0,255, /29,~ 

.  15 
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SI  PIENSAS  QUE  TU  COMMODORE 
SOLO  SIRVE  PARA  JUGAR,  SALTA 
AL  UNIVERSO  GEOS 


GEOS 

El  nuevo  sistema  operativo  de 
entorno  gráfico  que  te  introduce 
en  un  inmenso  universo  de 
nuevas  posibilidades  para  el  64  y 
28.  Con  GeoWrite.  GeoPaint, 

^n  turbo  cargador  rápido  de 
-  seo  y  soporte  para  todas  las 
-mpliaciones  compatibles  con 
»EOS,  estando  disponible  en  80 
columnas  para  el  128. 


FONTPACK  1 

Una  colección  de  20  tipos  más 
de  letras  para  usar  con  las 
geoaplicaciones,  en  varias 
formas  y  tamaños,  para 
documentos  más  expresivos  y 
creativos. 


GOEDEX 

El  GEOS  compatible  directorio 
que  te  permite  crear  listados  por 
el  nombre,  dirección,  número  de 


teléfono,  etc.  con  geomerge  para 
personalizar  cartas  e 
invitaciones.  También  disponible 
en  80  columnas  para  el  128. 


- 


WRITER’S 

WORKSHOP 

Todas  las  GEOS  compatibles 
necesitaban  urgentemente  una 
buena  herramienta  para  trabajar 
con  texto,  apareciendo  GeoWrite 
2.0  con  cabeceras,  pies  de  página 
y  características  que  le  permiten 
justificar,  centrar,  buscar  y 
reemplazar  texto.  Incluyendo 
Textgraber  (para  utilizar  ficheros 
creados  con  otros  procesadores 
como  Paper  Clip),  un 
GeoMerge  y  posibilidades  de 
utilizar  impresoras  láser. 

También  disponible  en  80 
columnas  para  128. 


«flfc 


DESPACK  1 

Cuatro  aplicaciones  compatibles 
con  GEOS:  Graphics  Grabber 
para  importar  imágenes  de  Print 
Shop,  Print  Shop  Companion, 
Newsroom  y  Print  Master; 
calendario;  un  editor  de  iconos  y 
un  juego  del  Black  Jack. 
También  disponible  en  80 
columnas  para  el  128. 


GEOCALC 

La  GEOS  compatible  hoja  de 
cálculo  para  crear,  almacenar  y 
seguir  datos  numéricos.  Crea  tus 
propias  fórmulas  para  cualquier 
cosa  y  observa  los  resultados  de 
las  modificaciones  si  alteras 
algún  campo  haciendo 
proyecciones  de  costes.  También 
disponible  en  80  columnas  para 
el  128. 

GEOFILE 

La  GEOS  compatible  base  de 
datos  que  elige,  edita  y  prioriza 
cualquier  dato  que  le 
introduzcas.  Tu  elegirás  la  forma 
de  entrada,  especificarás  tu 


comando  y  GEOFILE  se 
encarga  del  resto.  También 
disponible  en  80  columnas  para 
el  128. 


GEOPRINT  CABLE 

Los  seis  pies  de  cable  que  te 
permitirán  utilizar  una 
impresora  paralelo,  no  serial. 
Conectándola  fácilmente  a  tu  64 
ó  128  con  un  solo  cable  y  sin 
necesidad  de  interface. 

Antes  o  después  descubrirás  que 
hay  más  cosas  en  el  64  y  el  128 
que  matar  marcianos. 
Descubrirás  el  poder. 

No  el  tipo  de  poder  que  lanza  a 
los  alienígenas  fuera  de  la 
galaxia,  sino  el  que  almacena 
datos  en  segundos.  El  poder  que 
maneja  números  y  muestra 
documentos  a  la  velocidad  con 
la  que  saltas  al  hiperespacio. 

El  poder  que  tú  encuentras  en 
GEOS. 

Cada  GEOS  aplicación  puede 
cambiar  al  64  y  el  128  de  estar 
bajo  la  superioridad  del  universo 
a  ser  un  gran  maestro  del 
universo,  con  todo  el  poder  de 
unas  avanzadas  posibilidades 
que  funcionan  a  una 
hipervelocidad  nunca  pensadas 
posibles. 

Si  piensas  que  no  puedes  sacar 
más  partido  a  tu  ordenador, 
montátelo  en  torno  al  GEOS. 

COMPULAND 
C /  Calvo  Asensio  n^  8 
Tcl.:  (91)  243  16  38 
Télex  22034  COIM  E-1254 
28015  Madrid 
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Habla,  dibuja,  hace  animación,  educa. 
Es  un  ordenador  de  oficina  en  casa. 
Es  un  estudio  de  video. 

Es  un  salón  de  juegos  en  estéreo. 

Es  el  Commodore  Amiga  500 


El  nuevo  COMMODORE  AMIGA  500 
es  más  de  lo  que  nunca  se  ha  esperado 
de  un  ordenador  doméstico.  Su  diseño 
es  sorprendente  y  deslumbra  con  sus 
4096  colores  y  sonido  estéreo,  para 
desplegar  toda  la  creatividad,  para  permitir 
trabajos  que  nunca  antes  se  habían  soñado 
en  un  ordenador  personal,  porque  no  eran 
realmente  posibles. 

Como  el  sintetizador  de  voz,  que  facilita 
hablar  con  el  ordenador;  o  la  animación  en 
3-D  que  permite  poner  sus  ¡deas  en 
movimiento,  incluso  a  los  principiantes. 

Es  un  completo  ordenador  de  oficina  en 
casa,  con  poderosos  programas  de  Base 
de  Datos,  Tratamiento  de  Textos,  Hojas 
Electrónicas,  Contabilidad  y  otros 
Programas  de  gestión. 

El  COMMODORE  AMIGA  500  trabaja 
en  multitarea  rodando  varios  programas 


al  mismo  tiempo.  ¡¡¡Y  puede  trabajar 
como  un  PC  compatible,  con 
programas  standard  de  PC!!! 

Conectándolo  a  un  video  el  AMIGA  500 
se  convierte  en  un  centro  de  producción  de 
video  doméstico.  Dibuja  gráficos  sobre 
imágenes.  Crea  títulos  en  3-D  y  produce 
animaciones. 

Y  para  diversión,  se  dispone  del  increíble 
mundo  de  los  juegos  de  AMIGA.  Sus 
aráficos  son  de  tanta  calidad  que  los  usan 
fabricantes  de  juegos  en  las  máquinas  de 
monedas. 

Si  ve  una  demostración  de  AMIGA  Ud. 
mismo  dirá  que  sólo  con  AMIGA  es  posible 
hacerlo.  Vea  trabajar  este  sensacional 
ordenador  personal  en  un  Distribuidor 
de  COMMODORE. 


COMMODORE 


